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The TSC 6800 Mnemonic Assembler was written for maximum flexibility 
making It usable to owners of RAM-only systems as well as disk system 
owners. As always, flexibility adds complexity and therefore the user 
is advised to read the following application notes thoroughly before trying 

to use this program. 

It Is assumed that the user Is familiar with assembly language and. 

In particular, the mnemonics of the H6800 assembly language. Those who 
are not are referred to the "Mb800 Microprocessor Programming Manual" or 
the "M6800 Programming Reference Manual," both available from your 

Motorola distributor. 

The source language (Input) for the TSC 6800 Mnemonic Assembler con¬ 
sists of a subset of the 7-blt ASCII (American Standard Code for Information 
Interchange, 1968) character set. Special meaning Is attached to many of 
these characters as will be described later. In all cases the parity bit 
tmost significant bit) of each character must be 0. This restriction, of 

course, does not apply to line numbers, If present. 

Each line of source for the assembler consists of any number of bytes 
(possibly none) preceedlng the first character of the source statement, 
followed by the source statement, followed by a carriage return (hex 00). 
The source statement consists of up to four "fields" which are free format. 
From left to right, the four fields are label , operator (mnemonlcll ; 
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operand, and consent. There must be at least one space between each of- 

these fields. Further restrictions and options for each of these fleldas 
are: 

label field 

1) The label must begin In the first column and must be unique. 

2) Labels consist of letters (A-Z) and numerals (0-9). 

3) Every label must begin with a letter (A-Z). 

k) Only the first 6 characters of any label are significant, the 
rest are Ignored. 

5) The label field may be the only field present. 
operator field 

l) The operator Is 3 alphabetic characters (A-Z) which must be 
followed by a space. The exception to this Is number 2, below. 

2) Mnemonics such as LDA A and AND B may be written as LDAA and AM)B, 

respectively. | n this case fourth character must be followed by 
a space. 

operand field 

■r- I) The operand field may consist of an addressing mode indicator and 
an expression or just an expression. 

2) The addressing mode Indicator is either a § (Pound sign) followed 
by an expression for immediate addression or an expression followed 
by ,X for indexed addression. (Expressions defined later.) 

3) An operand may or may not be required depending on the addressing 


mode. 
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comment field 

1) The comment field is optional 

2) Comments may contain any character from SPACE ($20) to DEL l$7F>. 
Expressions 

Expressions consist of combinations of numbers and symbols seperated 
by one of the four arithmetic operators + , - ,■*, /• The arithmetic is 
done with 16 bit integer operands and truncated as necessary. 8 bit results 
are taken from the least significant 8 bits. Unary (+) and (-) are allowed. 
Expressions must not contain spaces. 

Numbers 

Numbers are groupings of the numerals 0-9 and possibly letters pre¬ 
fixed or_ postfixed by a base indicator. Possible base Indicators are shown 
below. The ASCII base allows a single ASCII character l$20-$5F) to be 
used as an operand when preceeded by a single quote. 


Base 

Prefix 

Postfix 

Comment 

Decimal 

none 

none 

decimal assumed 

Binary 

% 

B 

0, 1 allowed 

Octal 

e 

0 or Q 

0-7 allowed 

Hexadecimal 

$ 

H 

0-9, A-F allowed 

ASCII 

i 

not a11 owed 

ASCII equivalence 


Symbols 

Symbols are groupings of letters and numerals the first 6 of which are 
significant and the first of which must be a letter. The single character 
* is a special symbol whose value is the current value of the program counter 

(PC). 












Evaluation of Symbols and Expressions 


Since this is a two pass assembler ail symbols must be resolved in the 
two passes. Therefore, only one level of forward referencing is allowed. 
Assembler Directives 

In addition to the 72 M6800 mnemonics this assembler supports 1! 
assembler directives or pseudo-ops. These pseudo-ops are listed below 
along with a brief description. More detailed descriptions follow. 


FCC 

form constant character 

FCB 

form constant byte 

FDB 

form double byte 

SPC 

Insert spaces In output listing 

OPT 

activate or deactivate assembler options 

PAG 

skip to next page of output 

ORG 

define new origin (PC) 

EQU 

assign value to symbol 

END, MON 

signal end of source program 

NAM, TTL 

specify name or title 

RMB 

reserve memory bytes 


FCC 

The function of FCC Is to create character strings for messages or 
tables. The character string 'text' Is broken down to ASCII, one character 
per byte. The two allowable formats are shown below: 

label FCC count, text 

or 

label FCC delimiter text same delimiter 
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where count is any legal expression. In the cdse where a number Is used as 
a delimiter the first character of text must not be a comma. The character 
limit of any single FCC statement Is 255. The use of label Is optional. 

FCB 

The FCB pseudo-op causes an expression to be evaluated and the re¬ 
sultant 8 bits placed In memory. Usage Is shown below: 

label FCB expression 1, expression 2,...expression N 

Each expression Is seperated by a comma with a maximum of 255 expressions 
per FCB statement. The label Is optional. 

FOB 

The function of the FDB directive Is identical to FCB except. 16 bit 
quantities are assembled, i.e., two byteS generated fdf each expression. 
The required format is shown below: 

label FDB expression 1, expression 2,...,expression N 

where the label Is optional* The maximum nunber of expressions is 127. 

SPC 

The SPC operator causes the specified number of spaces to be Inserted 
in the output listing. The format is shown below. 

SPC expression 

Notice that no label Is allowed. If 'expression' evaluates to zero one 
space Is inserted. The operator SPC Itself does not appear In the output 
listing. If PAGE mode is selected SPC will not cause spacing past the top 


of the next pagd. 





The directive OPT Is used to activate or deactivate the assembler 


options. The format Is shown below. Notice that no label Is allowed and 
no code Is generated. 


OPT option 1, option 2,...,opt Ion N 

The allowable 

options are: 

SYM 

NOS 

print sorted symbol table after the listing (default) 
do not print the symbol table 

GEN 

NOG 

print all code generated by FCB, FDB, and FCC (default; 
print only one line for each FCB, FDB, or FCC 

US 

NOL 

print the assembled source listing (default) 
suppress the printing of the source listing 

PAG 

NOP 

enable page formatting and numbering 
disable page mode (default) 

MEM 

NOM 

enable storing of object code In memory 
disable storing of object code In memory (default) 

TAP 

NOT 

enable the production of MIKBUG object tape 
disable the production of MIKBUG object tape (default) 


If contradicting options appear the last one appearing takes precedence. All 
options take effect simultaneously at the beginning of pass 2. The default 
options specified take effect unless the user specifies a particular option. 
Only the first 3 characters of an option name are significant and multiple 
options are seperated by a comma. Some of the consequences and uses of the 
options will be explained later. 









7 





PAG 

The PAG operator, If the PAG option Is on, causes a page eject and 
subsequently causes the title (if any) and page number to be printed at 
the top of the next page. No label is allowed and no code Is produced. 

Notice that the first page of any listing IS page 0 and no title is printed 
on that page. The PAG operator itself will not appear In the listing. 

The usual procedure is to have all the options and the title declaration 
followed by a PAG be the first statements in a program. 

ORG 

The ORG operator, whose format is shown below, causes a new origin 
address (PC) for the code following. 

ORG expression 

No label Is allowed and no code Is produced, if no ORG appears an origin 
of 0000 is assumed. 

EQU 

EQU is used to equate a symbol to an expression as shown below. A 
label Is required and no code Is generated. Only one level of forward 
referencing is allowed and the equate must not be recursive, 
label EQU expression 

No code is produced by EQU. 

END or MON 

These operators signal the assembler that the end of the source Input 
has occurred. No label is allowed and no code Is generated. 


c 
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NAM or TTL 

These operators are used to assign a title to be printed at the top 
of all pages (other than page 0) If the PAG option Is on. If the PAG 
option Is off this operator has no effect. The format, as shown below 
allows up to 32 characters in the title. No label is allowed 



TTL text for the title 


and no code is generated. If more than one TTL or NAM operator appears 
the last one "executed" will be printed on the next page. 

RMB 

This operator causes the assembler to reserve memory for data storage 
No code is produced and therefore the contents of those memory locations 
are undefined at run time. The label Is optional as shown below 

label RMB expression 

where 'expression' Is a 16 bit quantity. 

■ - 

** Description of assembler operation 
Pass 1 - PASONE ($03B1) 

Pass I Is used to build the symbol table which Is used to resolve 
forward references. Nothing Is printed unless the error limit Is exceeded 
(85). Pass 1 must be run before PASS 2 and again before PASS 3. 

Pass 2 - PASTWO ($03D9) 

During pass 2 several things may happen. 

‘ . V. 

I) If the LIST option Is on. the assembled source listing Is printed with 
error messages, if any. 
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2) If the LIST option Is off only offending source lines and their 

corresponding error messages are printed. 

3) If the TAPE option Is on, a MIKBUG formatted object record Is outputted 
(through a different control point than the source listing). 

i») If the MEMORY option Is on, object code Is placed In memory in the 

following form: 

COUNT ADDRESS DATA ... DATA COUNT ADDRESS DATA ... DATA TERM 

where ADDRESS Is the destination address of the first data following 
COUNT Is a 16 bit byte cbunt indicating how many data bytes 

follow 

DATA Is the actual data 

TERM Is the record terminator (a COUNT of 0000) 

When a count of 0000 occurs this signifies the end of the program. 

5) If the SYMBOL option Is on, a sorted symbol table will be printed after 
the assembly listing (If any). Pass 1 must be run before PASS 2. 

Pass 3 - PASTHR ($05BB) 

Pass 3 Is used when the user does not have a "punch" device, on which 
to save the MIKBUG formatted records, which operates Independently from the 
list device. Pass 3 Is Identical In operation to pass 2 except that NOSYM, 
NOLIST, NOMEM and TAPE options are forced and error messages are suppressed 
Pass 1 must be run before PASS 3, PASS 2 and PASS 3 are Independent. 

Initialization 

There exists In the assembler an Initialisation routine for each of 
the passes which must be run once before that pass In run. These are 
called PIINIT, PZINIT, and P3INIT for passes 1, 2. and 3, respectively. 
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Adapting to Your System 

Due to the Inherent flexibility of this assembler It Is necessary 
that each user customize It to fit the particular system. This involves 
very few changes and can he made by any Individual familiar with 6R00 
assembly language. Each point to be adapted Is explained below. 

Output Character RnnMn*. 


The address at $0321 must be changed to that of your Output 
Character routine. This routine must print the ASCII character In 
the A register whose parity bit (most significant bit; Is zero. The 
B and X registers must not be altered. If you have a printer or a 
disk you will likely want to specify the address of a program which 
handles these peripherals as well as the control terminal. 

Tape Output Character Routine 


The address at $0324 must be changed 


to that of your tape punch 


(or tape record) routine. It Is through this control point that the 
MIKBUG formatted object code Is outputted. If you do not have a 
separate punch or record device this address may be the same as the 
Output Character routine address, l.e.. tape device same as list device 


‘w, 

ft; 


Tape Control Characters 

There are provisions at Soto) and $04Ch for four control characters 
to activate and deactivate, respectively, your punch or record device. 
Simply place the appropriate control characters for your device In each 
of the strings. If you desire to send less than the four characters, 
change the byte at S04B3 to the appropriate value (even 0). This 
will, of course, affect both turn on and turn off simultaneously. 




( 



L 
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Tape Control Delay 

The byte at $04C9 controls the number of half-seconds (1MHz clock) 
of delay between tape turn on and data and also between data and 
tape turn off. The delay Is set now to *Z seconds. If you don't 
need delay at all set. the byte to 00. 

Page Control 

Page Eject 

The four bytes at $1101 are provided for the user to Insert the 
necessary control characters to cause the printer to form feed,/ 

1.e.» eject to the top of the next page. If you heed only 1 
character, Simply place the 04 after that character In the string. 
The control character Is currently set to $0A (line feed). 

Top Margin Control 

The byte at $1143 controls the number of lines from the form 
feed position to the title and page number line lean be 0). 

P6ge Length Control 

The byte at $07C$ controls the number of lines to be printed 
on each page before the form feed Is Issued. This count Includes 
the top margin and the title line and should be larger than 
(top margin + l). 

The user may want to alter other features such as the number of columns 
printed In the symbol table, etc. MoSt modifications of this type 
will be needed by only a few Users and therefore will not be elaborated 
upon here. These users are encouraged to study the code to facilitate 
making the desired modifications. 
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Controller Routine 

The routine MAIN ($300) Is an example of how to use the assembler 
subroutines* It assumes the user has no independent punch device 
and therefore must run PASS 3 In order to output the object code. 

Also, MAIN assumes the source program resides entirely In RAM and 
that the necessary pointers (to be described) are set. 

Disk users will, of course, want to write their own MAIN 
routine which will bring In each section of source code and run 
PASS 1 on each, then bring In each section again and run PASS 2, 
similarly for PASS 3» Naturally, the Initiatlzatlon routine for 
each pass need be run only once before each series of passes of the 
same type. Be reminded that PASS 1 needs to be run before PASS 2 
and again before PASS 3. This procedure will allow assembly of 
files too large to reside entirely In RAM. 

One note of caution: the END operator Is not strictly necessary 
at the end of a program as the pass In effect will terminate at 
the end of the source area. However, If you are generating object 
code, only an END statement will flush the code buffer or fix the 
memory count. Likewise, only an END operator will cause the symbol 
table to be printed (if SYM Is on). The byte ENDFLG ($0058 ) will 
be set ($FF) if the END operator occurs, which can be detected by 
your MAIN routine. 

Assembler Data Pointers 

Before calling any assembler routines the user must set several pointers 
to data areas. This feature allows much flexibility but restrictions which 

apply to each pointer are outlined below. No assembler routines modify 
these pointers. 



( 



C 
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LBLBEG - $001*0 
LBLEND - $001*2 

These are the pointers to the area which will be used for the label 
table (symbol table). Each entry (symbol) In the table requires 8 bytes. 

A large table will result In the Put Label and Find Label routines running 
faster but the Shell (sort) routine will run slower. A small table wtll 
have the opposite effect. Of course, the table needs to be large enough 
to accomodate the number of symbols In your program. A reasonable formula 
for determining the size necessary Is. 

SIZE-N*8*2-N*16 bytes 

where N Is an estimate of the number of symbols expected. When the table 
Is full an error message will be Inserted In the listing. (The table may 
not be completely full due to the algorithm used for creating the table - 
hashing, or scatter storage.) 

If you want a IK symbol table (a recommended minimum, enough for 
60-80 labels) you might set LBLBEG to $2000 and LBLEND to $23FF. Notice 
that the pointers do point to the actual beginning and end of the table. 

SRCBEG - $001*1* 

SRCEND - $0046 

These two pointers Indicate the beginning and end of the section of 
source code to be assembled, which may be as small as one line of source. 
SRCEND must point to the carriage return ($0D) of the last line of the 
source section to be assembled. 


LINBYT - $00A8 
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Although not actually a pointer LI1IBYT Is related to the source pointers 
It tells the assembler how many bytes to Ignore from carriage return of 
the previous line (or SRCBEG) before actually processing text. This allows 
direct output of text editors to be assembled without removing the preceedlng 
line numbers. If you have no line number bytes, set LINBYT to £5. 

MEMPTR - $0049 


This pointer tells the assembler where In memory, If the MEMORY option Is 
on, to put the assembled object code* Recall that four extra bytes 
(address and count) are required for each contiguous block of code. 


Error Messages 


This assembler supports 12 error messages which are printed after 
the offending line. The error messages announce violations of any of the 
restrictions set forth in this manual and are, therefore, self-explanatory. 

Additionally, the byte 'ERRORS' (cleared by P1INIT) will be set if any 
errors have occurred in any of the passes. 


Note: The ASCII characters 00 - $0 C , $0 E - $1F, and $80 - $8F, Inclusively 
are explicitly prohibited from being In any area of the source program with 
the exception of the bytes which are skipped by the assembler (line number 
bytes). Their existence will cause undefined results. The remaining ASCII 
characters may appear subject to all of the foregoing restrictions. 


Additional Feature 

This assembler supports 2 extra mnemonics namely BHS and BLO which 
are the logical equivalents of BCC and BCS respectively. However, Branch 
If Higher or Same and Branch If Lower are much easier to remember and use 





L 
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Final Note 

Please be reminded, when using the MEMORY option, that In most cases 
the object code will not be put In memory where It can be executed. It 
Is up to the user to write the simple routine necessary to move the code 
to Its proper executable location. 

Important: The address at $031C is the address to which control returns 
when the assembly Is complete. This should be modified to suit your needs. 


**** USING THE TSC EDITOR **** ***** 

The TSC Text Editing System and the TSC Mnemonic Assembler have not 
been written to be used co-resident. It is possible to use them one 
after the other without reloading the source. Following is the 
procedure to be used: 

1. Load the editor but before running, change BEGPNT (location $0359) 
presently $1492 to $1600. This moves the starting location of the 
text. Put a $0D at location $15FF. 

2. Run the editor and create your file. 

3. When finished, exit the editor and write down the contents of 

a. ) FILBEG ($0097* 0098) Shows the source beginning. 

b. ) FI LEND ($0099“009A) Shows one past the source end. 

4. Load the assembler but before running be sure to set all pointers. 

a. ) Symbol Table limits ($0040-0043) 

b. ) Source beginning ($0044-0045) contents of edit FILBEG 

c. ) Source ending ($0046-0047) "contents-1" of edit FILEND 

***** Be sure to subtract one from FILEND I! 

d. ) Skip count ($0048) Set this to 03 (3 line no. in editor) 

e. ) Memory pointer ($0049) Set if used. 

5- Run the assembler. 
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* * TSC 68e8 RELOCATOR 

»•» 

* ‘ COPYRIGHT <C> 1977 BY 

* TECHNICAL SYSTEMS CONSULTANTS# INC. 

* P. 0. BOX 2574; W. LAFAYETTE# IN 47906 

* <317> 742-7599 

Hi 

6208 ORG $0280 


* PROGRAM START 


0200 

8E 

0F 

FF 

START 

LDS 

#$0FFF 

SETUP STACK 

0283 

7E 

03 

2F 


JMP 

BEGIN 

STRRT THE PROGRAM 





* TEMPORARY STORAGE 


0206 




TAPE 

RMB 

1 

LOADED FROM TRPE FLRG 

6207 




PLAY 

RM9 

1 

RECORDER Off FLAG 

0208 




FIXREF 

RMB 

1 

FIX REFERENCES FLAG 

0209 




TEMPI 

RM9 

2 

TEMPORARY REGISTER 

0283 




TEMP2 

RMB 

2 

TEMPORARY REGISTER 

620D 




TEMP3 

RMB 

2 

TEMPORARY REGISTER 

020F. 



--- 

CMPREG 

RMB 

2 

2 BYTE COMPARE REG. 

0211 




DRCPTR 

RMB 

2 

DIRECT STACK POINTER 

0213 




OLDPTR 

RMB 

• 2 

OLD PROGRAM POINTER 

0215 




NEWPTR 

RMB 

2 

NEW PROGRAM POINTER 

6217 




OBJEND 

RMB 

2 

END OF OLD PROGRAM 

0219 




RGBEG 

RMB 

2 

RANGE BEGIN ADDRESS 

6218 




RGEND 

RMB 

2 

RANGE END ADDRESS 

621D 




OFFSTL 

RMB 

1 

LEFT HALF OFFSET 

021E 




OFFSTR 

RMB 

1 

RIGHT HALF OFFSET 





* EXTERNAL ROUTINE JUMPS 


021F 

7E 

El 

D1 

OUTCH 

JMP — 

~*E1D1- 

OUTPUT ROUTINE 

0222 

7E 

El 

AC 

INCH 

JMP 

5E1AC 

INPUT ROUTINE 

6223 

7E 

E0 

E3 

MONITR 

JMP 

SE0E3 

EXIT ADDRESS 





* PRINT 

STRINGS 


0228 

08 



PNEXTS 

INX 



6229 

80 

0B 


PSTRNG 

BSR 

PCRLF 

PRINT CR AND LF 

022B 

A6 

00 


PDATA 

LDA A 

0# X 

GET CHARACTER 

022D 

31 

04 



CMP A 

#4 

IS IT EOT? 

022F 

27 

10 



BEQ 

RETURN 


0231 

8D 

EC 



BSR 

OUTCH 

OUTPUT IT 

6233 

08 




INX 



0234 

23 

F5 



BRA 

PDATA 


0236 

FF 

02 

09 

PCRLF 

STX 

TEMPI 

SAVE X REGISTER 

0239 

CE 

03 

B3 


LDX 

#CRLF 

POINT TO STRING 

023C 

8D 

ED 



BSR 

PDATR 

PRINT THE STRING 

0235 

FE 

02 

09 


LDX 

TEMPI 

RESTORE X REGISTER 

0241 

39 



RETURN 

RTS 
















TSC 6880 RELOCnTOR 


TSC MNEMONIC ASSEMBLER PAGE £ 


* INPUT 1 HEX CHARACTER 


6242 

8D 

DE 


IN1HEX 

BSR 


INCH 

GET CHARACTER 

6244 

80 

4? 


INIHXi 

SUB 

A 

#44? 

IS IT VRLID? 

6246 

2A 

0D 



BPL 


INERR 


0248 

8B 

06 



ADD 

A 

#6 


024R 

2A 

04 



BPL 


IN1HX2 


024C 

88 

0? 



ADD 

A 

#7 


024E 

2A 

05 



ePL 


INERR 


0253 

83 

0A 


IN1HX2 

ADD 

A 

#10 


©252 

23 

01 



BMI 


INERR 


0254 

39 




RTS 



IF SO/ RETURN 

0255 

31 



INERR 

INS 



IF NOT/ ERROR 

0256 

31 




INS 




025? 

7D 

02 

0? 


TST 


PLAV 

IS TAPE ON? 

025A 

2? 

05 



BEQ 


INERR2 


025C 

31 




INS 




025D 

31 




INS 




025E 

7E 

02 

FA 


JMP 


ERROR 

IF SO/ TRPE ERROR 

8261 

CE 

06 

AA 

INERR2»- 

LDX 


#WHAT 

ELSE REPORT KEV ERROR 

0264 

8D 

C5 



BSR 


PDATA 


0266 

20 

02 



BRA 


INADDR- 

TRV RGRIN 



m 


* INPUT 

NUMBER 

TO X REGISTER 

0268 

8D 

BF 


PINADD 

BSR 


PSTRNG 

PRINT STRING FIRST 

026A 

?F 

02 

09 

INADDR- 

CLR 


TEMPI 

CLEAR REGISTER 

026D 

7F 

02 

0A 


CLR 


TEMP1+1 


0270 

8D 

B0 


INADDQ 

BSR 


INCH 

GET CHARACTER 

0272 

81 

0D 



CMP 

A 

#40D 

IS IT A RETURN? 

0274 

27 

14 



BEQ 


INADD2 

IF SO WE'RE DONE 

0276 

8D 

CC 



BSR 


INIHXI 

ELSE/ CHECK FOR HEX 

0278 

48 




ASL 

A 


SHIFT IT OVER 

0279 

48 




ASL 

A 



027A 

48 




ASL 

A 



027B 

48 




ASL 

A 


-... -"—-■ - — . -----.. 

027C 

C6 

CD 

4k 



LDA 

B 

#4 ' • 


027E 

48 



INADD1 

ASL 

A 


RND INTO REGISTER 

027F 

79 

02 

0R 


ROL 


TEMPI+1 


0282 

79 

02 

09 


ROL 


TEMPI 


0285 

5A 




DEC 

B 



0286 

26 

F6 



BNE 


INADD1 


0288 

20 

E6 



BRA 


INADD0 

GO GET ANOTHER 

028A 

FE 

02 

09 

INRDD2 

LDX 


TEMPI 


028D 

39 




RTS 




• 




* INPUT 

2 HE 

:x DIGITS 


028E 

8D 

B2 


IN2HEX 

BSR 


IN1HEX 

GET 1ST DIGIT 

0290 

48 




RSL 

A 


SHIFT IT OVER 

0291 

48 




ASL 

A 



0292 

48 




ASL 

R 



0293 

48 




ASL 

A 
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TAB 


SRVE IT 

0295 8D 

RB 

BSR 

IN1HEX 

GET 2ND CHARACTER 

0297 IB 


RBR 


RDD IN FIRST 

0298 16 


TRB 



0299 FB 

02 0B 

ADD B 

TEMP2 

ADD TO CHECKSUM 

029C F7 

02 0B 

STR B 

TEMP2 


029F 39 


RTS 




* LOAD A MIKBUG FORMAT TAPE 


02R0 

86 

3C 


LORD 

LDR 

R 

#*3C 

SETUP CONTROL PIR 

02A2 

B7 

89 

07 


STR 

fl 

$8087 


02R5 

CE 

05 

B1 


LDX 


#TfiPEON 

PRINT CONTROL CHPS. 

02R8 

8D 

81 



BSR 


PDRTA 


02RR 

BD 

02 

22 

LORD1 

JSR 


INCH 

GET CHARACTER 

02RD 

81 

53 



CMP 

A 

#'S 

IS IT RN 'S'? 

02RF 

26 

F9 



BNE 


LORD1 

LOOP IF NOT 

02B1 

BD 

02 

Ol 

<u 


JSR 


INCH 

GET CHRRACTER 

02B4 

81 

39 



CMP 

fl 

#'9 

IS IT fl '9'? 

02B6 

27 

5D 



BEQ 


L0RD4 

IF SO WE'RE DONE 

62B8 

80 

31 



SUB 

R 

a'l 

COMPRRE TO fl '1' 

02BR 

26 

EE 



BNE 


LORDl 

LOOP IF NOT EQUAL 

02BC 

B7 

02 

0B 


STR 

fl 

TEMP2 

CLEAR CHECKSUM 

02BF 

8D 

CD 



BSR 


IN2HEX 


02C1 

80 

02 



SUB 

fl 

$2 

GET BYTE COUNT - 2 

82C3 

B7 

02 

0C 


STR 

R 

TEMP2+1 

SAVE IT 

02C6 

8D 

C6 



BSR 


IN2HEX 

GET LOAD ADDRESS 

02C8 

B7 

02 

09 


STR 

R 

TEMPI 


02CB 

8D 

Cl 



BSR 


IN2HEX 


02CD 

B7 

02 

0fl 


STR 

R 

TEMP1+1 


02D0 

FE 

02 

09 


LDX 


TEMPI 


02D3 

BD 

05 

8R 


JSR 


CMPRRE 

COMPRRE OLDPTR 

02D6 

22 

0E 



BHI 


L0AD2 

JUMP IF OUTSIDE RANGE 

02D8 

FE 

02 

17 


LDX 


OBJEND 


02DB 

BD 

05 

98 


JSR 


CMPX 

COMPARE ADDRESS & OBJEND 

02DE 

23 

06 


. . 

BLS 


L0RD2 

JUMP IF OUTSIDE RANGE 

02E0 

CE 

02 

0F 


LDX 


8CMPREG 

IF WITHIN RANGED 

02E3 

BD 

05 

R2 


JSR 


RDDOFF 

ADD IN OFFSET 

02ES 

FE 

02 

0F 

L0RD2 

LDX 


CMPREG 

GET FINAL ADDRESS 

02E9 

8D 

R3 


L0RD25 

BSR 


IN2HEX 

GET A BYTE 

02EB 

7fl 

@2 

0C 


DEC 


TEMP2+1 

DEC. BYTE COUNT 

02EE 

27 

05 



BEQ 


L0AD3 

EXIT IF = 0 

02F0 

R7 

00 



STR 

fl 

0, X 

ELSE STORE BYTE 

02F2 

08 




INX 




02F3 

20 

F4 



BRR 


L0AD25 

LOOP UNTIL DONE 

02F5 

?C 

02 

03 

L0RD3 

INC 


TEMP2 

IS CHECKSUM RIGHT? 

02F3 

27 

B0 



BEQ 


LOAD1 

IF SO, GET NEXT RECORD 

02FR 

8D 

19 


ERROR 

BSR 


L0RD4 

ERROR. . . TURN OFF TAPE 

02FC 

8D 

26 



BSR 


DELAY 

PAUSE AWHILE 

©2FE 

CE 

06 

90 


LDX 


#ERR 


0301 

BD 

02 

29 


JSR 


PSTRNG 

REPORT ERROR 

0394 

BD 

02 

22 

TRYRG 

JSR 


INCH 

GET RESPONSE 

0397 

81 

59 



CMP 

n 

#'Y 


0309 

27 

07 



BEQ 


L0AD35 

IF YES, TRY AGAIN 
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030B 

81 

4E 



CMP 0 

#'N 


030D 

26 

F5 



BNE 

TRYOG 


030F 

7E 

02 

25 


JMP 

MONITR 

IF NO/ EXIT PROGROM 

0312 

7E 

02 

00 

L08D35 

JMP 

LOAD 

* 

0315 

86 

34 


L0RD4 

LDO fl 

#$34 

RESET CONTROL PI8 

031? 

B? 

80 

0? 


STO 0 

$300? 


0310 

CE 

05 

B6 


LDX 

ttTOPQFF 

PRINT CONTROL CHORS. 

031D 

BD 

02 

23 


JSR 

PDOTfl 


0320 

BD 

02 

36 


JSR 

PCRLF 


0323 

39 




RTS 



• 




★ DELOV 

ROUTINE 


0324 

CE 

FF 

FF 

DELOV 

LDX 

#$FFFF 


032? 

09 



DEL0V1 

DEX 


DELAY AWHILE 

0328 

08 




INX 



0329 

09 




DEX 



0320 

08 




INX 



032B 

09 




DEX 



032C 

26 

F9 


t • 

BNE 

DEL0Y1 


032E 

39 




RTS 





» 


* STORT 

OF MOIN PROGROM 


032F 

BD 

02 

36 

BEGIN 

JSR 

PCRLF 

PRINT 2 LINE FEEDS 

0332 

BD 

02 

36 


JSR 

PCRLF 


0335 

?F 

e2 

0S 


CLR 

TOPE 

CLEAR FLOGS 

0338 

7F 

02 

08 


CLR 

FIXREF 

- ‘ . ... - 

0338 

7F 

02 

87 


CLR 

PLOY 


033E 

CE 

06 

OF 


LDX 

#DRBEG 

SETUP DIRECT POINTER 

0341 

FF 

02 

11 


STX 

DRCPTR 


0344 

CE 

05 

C2 


LDX 

#INTRQ 


034? 

BD 

02 

29 


JSR 

PSTRNG 

PRINT INTRO MESSAGE 

0340 

BD 

02 

28 


JSR 

PNEXTS 


034D 

CE 

05 

EO 


LDX 

#BEGfiDR 


0350 

BD 

02 

63 

• ■ 

JSR 

PINODD 

GET BEGIN ADDRESS. 

0353 

FF 

02 

13 


STX 

OLDPTR 


0356 

FF 

02 

19 


STX 

RGBEG 

SET RRNGE BEGIN 

0359 

CE 

85 

Ffl 


LDX 

SENDRDR 


035C 

BD 

02 

68 


JSR 

PINODD 

GET END ADDRESS 

035F 

FF 

02 

17 


STX 

OBJEND 


0362 

FF 

02 

±6 


STX 

RGEND 

SET RRNGE END 

0365 

CE 

06 

00 


LDX 

#NEWBG 


0368 

BD 

02 

68 


JSR 

PINODD 

GET NEW BEGIN ADDRESS 

036B 

FF 

02 

15 


STX 

NEWPTR 


036E 

B6 

02 

16 


LDO 0 

NEWPTR+1 

COLCULRTE OFFSET * 

0371 

B0 

02 

14 


SUB 0 

OLDPTR+1 


0374 

B7 

02 

IE 


STO 0 

OFFSTR 


037? 

B6 

02 

15 


LDO 0 

NEWPTR 


0370 

B2 

02 

13 


SBC 0 

OLDPTR 


037D 

B? 

02 

ID 


STO 0 

OFFSTL 

* 

0380 

CE 

06 

3E 


LDX 

tJFIXRFS 


0383 

BD 

02 

29 


JSR 

PSTRNG 

RSK TO FIX REFERENCES 

0386 

BD 

ea 

22 


JSR 

INCH 

GET RESPONSE 
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0389 

81 

4E 



CMP 

8 



0338 

27 

03 



BEQ 


LDFRTP 


038D 

7C 

02 

08 


INC 


FIXREF 

IF YES/ SET FL8G 

0399 

CE 

06 

18 

LDFRTP 

LDX 


#TRPSTR 

0393 

BO 

02 

29 


JSR 


PSTRNG 

LORDING FROM TAPE? 

0396 

BO 

02 

22 


J SR 


INCH 

GET RESPONSE 

0399 

81 

59 



CMP 

8 

#'V. 


0393 

27 

83 



BEQ 


LDFRT1 


039D 

7E 

04 

26 


JMP 


N0T8PE 

IF NOT.. JUMP AHEAD 

03R0 

70 

02 

06 

LDFRT1 

INC 


T8PE 

IF SO/ SET TAPE FLAG 

0383 

70 

02 

07 


INC 


PLRV 

0386 

BD 

©2 

80 


JSR 


LORD 

GO LORD TAPE 

0389 

7F 

02 

97 


CLR 


PLRV 


038C 

BD 

03 

24 


JSR 


DEL8V 

PAUSE AWHILE 

03RF 

CE 

06 

2B 


LDX 


#LORDED 


03B2 

BD 

02 

29 


JSR 


PSTRNG 

REPORT LORD COMPLETE 

03B5 

BO 

02 

22 

WRIT 

JSR 


INCH 

GET 8 CHARACTER 

03B8 

81 

28 



CMP 

8 

#S20 


03B8 

26 

F9 



BNE 


WRIT 

BUT ONLY ACCEPT A SPACE 

03BC 

70 

02 

CD 

CO 


TST 


FIXREF 

FIXING REFERENCES? 

03BF 

26 

03 



'BNE 


T8PFIX 


0301 

7E 

02 

25 


JMP 


MCNITR 

IF NOT/ EXIT PROGRAM 

03C4 

FE 

02 

15 

TAPFIX 

LDX 


NEWPTR 


03C7 

FF 

02 

13 


STX 


OLDPTR 

IF SO/ FIX OLDPTR 

0308 

CE 

02 

17 


LDX 


#OBJEND 


03CD 

BO 

05 

82 


JSR 


RDDOFF 

AND OBJECT END 





* ENTER 

DIRECT 

DRTfl BLOCKS 

0309 

CE 

06 

8F 

ORBLKS 

LDX 


#DRBEG 


03D3 

FF 

02 

0D 


STX 


TEMP3 

SAVE DIRECT BEGIN 

0306 

CE 

06 

4F 


LDX 


#DRCTBK 


0309 

BO 

02 

29 


JSR 


PSTRNG 

8NV DIRECT RELOCATES? 

03DC 

BO 

02 

22 


JSR 


INCH 


03OF 

81 

4E 



CMP 

8 

#'N 


03E1 

26 

05 



BNE 


DRBLK1 

IF SO GO GET THEM 

03E3 

CE 

FF 

FF 


LDX 


•#$FFFF 

• v ■ 

03E6 

20 

63 



BR8 

- ■ 

DIFFRCT 

IF NOT/ JUMP 8HER0 

03E8 

BD 

02 

36 

DRBLK1 

JSR 


PCRLF 


03EB 

CE 

05 

E8 


LDX 


4BEG8DR 


03EE 

BO 

02 

68 


JSR 


PIN8D0 

GET BLOCK BEGIN 

03F1 

8C 

FF 

FF 


CPX 


#$FFFF 

FINISHED? 

03F4 

27 

55 



BEQ 


DIFFRG 

IF SO/ JUMP AHEAD 

03F6 

8D 

08 



BSR 


ENTER 

PUT ADDRESS ON STACK 

03F8 

CE 

05 

F8 


LDX 


#END8DR 


03FB 

BD 

02 

68 


JSR 


PINRDD 

GET BLOCK END 

03FE 

80 

02 



BSR 


ENTER 

PUT IT ON STRCK 

0400 

20 

E6 



BRR 


DRBLK1 

LOOP BACK 

0402 

70 

02 

06 

ENTER 

TST 


T8PE 

LORDED FROM TAPE? 

0405 

27 

09 



BEQ 


ENTER0 

IF NOT GO AHEAD 

0407 

CE 

02 

09 


LDX 


fcTENPl 


0408 

BD 

05 

82 


JSR 


RDDOFF 

IF SO/ ADD OFFSET 

040D 

FE 

02 

09 


LDX 


TEMPI 


0410 

FF 

02 

0B 

ENTER0 

STX 


TEMP2 

SAVE ADDRESS 
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0413 

FE 

02 

0D 


LDX 

TEMP3 

POINT TO DIRECT STOCK 

0416 

86 

02 

0B 


LDO 0 

TEMP2 

PUT ADDRESS ON STOCK 

0419 

07 

00 



STfl 0 

0, X 


041B 

86 

02 

0C 

• 

LDO 0 

TEMP2+1 


041E 

07 

01 



STO 0 

1, X 


0420 

08 



ENTER1 

INX 


FIX DIRECT STOCK PTR. 

0421 

09 




INX 



0422 

FF 

02 

0D 


STX 

TEMP3 


0425 

39 




RTS 



0426 

7D 

02 

08 

NOTOPE 

TST 

FIXREF 

FIXING REFERENCES? 

0429 

26 

05 



BNE 

DRBLKS 

IF SO, GO ENTER DIRECTS 

0428 

CE 

00 

00 


LDX 

#$0000 

IF NOT, MOKE THE 

042E 

FF 

06 

OF 


STX 

DRBEG 

ENTIRE ROM SPACE INTO 

0431 

CE 

FF 

FF 


LDX 

#$FFFF 

0 DIRECT RELOCATE BLOCK 

0434 

FF 

06 

B1 


STX 

DRBEG+2 


043? 

FF 

06 

B3 


STX 

DR8EG+4 


0430 

20 

39 



BRfl 

LOOP 

STflRT RELOCATION 





* ROUTINE TO INCREMENT 

POINTERS 

043C 

FE 

02 

15 

INCPTR 

• LDX 

NEWPTR 


043F 

08 




INX 


INCREMENT NEW POINTER 

0440 

FF 

02 

15 


STX 

NEWPTR 


0443 

FE 

.02 

13 


LDX 

OLDPTR 


0446 

08 




INX 


INCREMENT OLD POINTER 

0447 

FF 

02 

13 


STX 

OLDPTR 


0440 

39 

.. ... 


•- --.i*. ... *•' 

; RTS 

. ‘ ‘ . 

; r. ■' ... ■/,' ' • ■ . . - 





* CHONGE REFERENCE RONGE ROUTINE 

044B 

8D 

C3 


DIFFRG 

BSR 

ENTER0 

SET DIRECT STOCK END 

044D 

CE 

06 

5D 


LDX 

♦rCHONGE 


0450 

BD 

02 

29 


JSR 

PSTRNG 

ASK TO CHONGE RANGE 

0453 

BD 

02 

22 


JSR 

INCH 

GET RESPONSE 

0456 

81 

59 



CMP 0 

#'V 


0458 

26 

12 


- 

BNE . 

LOOP 

IF NO, STORT RELOCATION 

0450 

CE 

05 

EO 


LDX 

SBEGODR 

* : • 

045D 

BD 

02 

68 


JSR 

PINODD 

GET RANGE BEGIN 

0460 

FF 

82 

19 


STX 

RGBEG 


0463 

CE 

05 

FO 


LDX 

#ENDODR 


0466 

BD 

02 

68 


JSR 

PINODD 

GET RANGE END 

0469 

FF 

02 

1.3 


STX 

RGEND 






* MAIN 

RELOCATION LOOP 


046C 

FE 

6,. 

1? 

LOOP 

LDX 

03JEND 

IS OLDPTR > 03JEND? 

046F 

BD 

0b 

90 


JSR 

CMPORE 


0472 

23 

03 



BLS 

L00P1 


0474 

7E 

05 

4 v 


JMP 

DONE 

IF SO WE'RE DONE 

0477 

FE 

02 

11 

L00P1 

LDX 

DRCPTR 

IS THIS 0 DIRECT BLOCK? 

0470 

EE 

09 



LDX 

0, X 


047C 

BD 

05 

80 


JSR 

CMPORE 


047F 

25 

03 



BCS 

LOOPS 


0481 

?E 

05 

IE 


JMP 

DIRECT 

IF SO, GO MOVE DIRECT 
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0484 

86 

00 

L00P2 

LD8 8 

X 

© 

MOVE OPCODE 

0486 

FE 

02 15 


LDX 

NEWPTR 


0489 

87 

00 

r' 

ST8 8 

0, X 


0488 

FE 

02 13 

• 

LDX 

OLDPTR 


048E 

84 

30 


8ND 8 

#$30 

CHECK FOR 3 BVTE INST. 

0498 

81 

30 


CMP 8 



0492 

27 

29 


BEQ 

M8VBE3 

COULD BE 3 BVTES 

0494 

86 

09 


LD8 8 

0, X 


0496 

81 

Cc 


CMP 8 

#$CE 

CHECK FOR LDX # 

0498 

27 

29 


BEQ 

THREE 


0498 

81 

80 


CMP 8 

#$30 

CHECK FOR CPX # 

049G 

27 

25 


BEQ 

THREE 


049E 

81 

8E 


CMP 8 

#$8E 

CHECK FOR LDS # 

0480 

27 

21 


BEQ 

THREE 


0482 

81 

5F 


CMP 8 

#$5F 

LOOK FOR 2 BVTE INST. 

0484 

22 

0B 


BHI 

TWO 


0486 

84 

F0 


8ND 8 

#$F0 

LOOK FOR 1 BVTE INST. 

0488 

81 

20 


CMP 8 

#$20 


0488 

27 

05 


BEQ 

TWO 





* ONE B*TE INSTRUCTION 


0480 

BD 

04 30 

ONE 

JSR 

INCPTR 


048F 

20 

BB 


BRfl 

LOOP 

GET NEXT INSTRUCTION 




*TUO BVTE INSTRUCTION 


04B1 

BD 

04 30 

TWO 

JSR 

INCPTR 

POINT TO 2ND BVTE 

04B4 

86 

09 


LD8 8 

0, X 

MOVE IT 

04B6 

FE 

02 15 


LDX 

NEWPTR 


04B9 

87 

00 


ST8 8 

0, X 


04BB 

20 

EF 


BR8 

ONE 

NEXT INSTRUCTION 

04BD 

86 

00 

MRVBE3 

LD8 8 

0, X 

CHECK 3 OR 1 BVTE INST. 

04BF 

85 

00 


BIT 8 

#$C9 


04C1 

27 

E9 

• 

BEQ 

ONE 

. V' . _. 




* THREE 

BVTE INSTRUCTION 


0403 

BD 

04 30 

THREE 

JSR 

INCPTR 

POINT TO REFERENCE 

0406 

FE 

02 19 


LDX 

RGBEG 

IS IT BELOW R8NGE BEG? 

0409 

FF 

02 0F 


STX 

CMPREG 


04CC 

FE 

02 13 


LDX 

OLDPTR 


04CF 

EE 

00 


LDX 

0 , X 


04D1 

BD 

05 90 


JSR fi/ s 

CMPX 


04D4 

25 

30 


BLO 

NOFFST 

IF SO, NO OFFSET 

04D6 

FE 

02 IB 


LDX 

RGEND 

IS IT 8B0VE R8NGE END? 

04D9 

FF 

e2 0F 


STX 

CMPREG 


04DC 

FE 

02 13 


LDX 

OLDPTR 


04DF 

EE 

69 


LDX 

0, X 


04E1 

BD 

05 99 


JSR 

CMPX 


04E4 

22 

20 


BHI 

NOFFST 

IF SO, NO OFFSET 

0426 

FE 

02 13 


LDX 

OLDPTR 


04E9 

e9 



DEX 
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04EO 

06 

00 



LOO 

0 

0, X 

GET OPCODE 

04EC 

08 




INX 




04ED 

81 

7E 



CMP 

0 

#$7E 

IS IT A JUMP? 

04EF 

27 

00 


. 

BEQ 


OFFSET 

IF SO/ DO OFFSET 

04F1 

84 

F0 



ONO 

0 

#$F0 

CHECK FOR PAGE O REF. 

04F3 

81 

70 



CMP 

0 


04F5 

26 

04 



BNE 


OFFSET 


04F7 

06 

00 



LOO 

0 

0, X 


04F9 

27 

1C 



BEQ 


N0FST1 

IF PAGE 0, NO OFFSET 

04FB 

06 

01 


OFFSET 

LDO 

0 

1, X 

ODD OFFSET TO REFERENCE 

04FD 

B8 

02 

IE 


ODD 

0 

OFFSTR 


0509 

16 




TOB 




0501 

06 

00 



LDO 

0 

0/ X 


0503 

B9 

02 

10 


ODC 

0 

OFFSTL 


0506 

FE 

62 

15 

NEXT 

LDX 


NEWPTR 

STORE RESULT . 

0509 

07 

00 



STO 

0 

0/ X 


050B 

E7 

01 



STO 

B 

1/ X 


050D 

BO 

04 

3C 


JSR 


INCPTR 


0510 

20 

90 



BRO 


ONE 

GET NEXT INSTRUCTION 

0512 

FE 

02 

13 

NOFFST 

LDX 


OLDPTR 

NO OFFSET ADDED 

0515 

06 

00 



-- LDO 

0 

0/ X 


0517 

E6 

01 


N0FST1 

LDO 

B 

1, X 


0519 

20 

E8 



BRO 


NEXT 




# 


* MOVE 

DIRECT 

DflTfl BLOCK 


051B 

BO 

04 

3C 

DRECT0 

JSR 


INCPTR 

BUMP POINTERS 

051E 

06 

00 


DIRECT 

LDO 

0 

e, X 

MOVE ONE BVTE 

0520 

FE 

02 

15 


LDX 


NEWPTR 


0523 

07 

00 



STO 

0 

0, X 


0525 

FE 

02 

17 


LDX 


OBJEND 


0528 

BO 

85 

80 


JSR 


CMPflRE 

END OF PROGRAM? 

0528 

27 

17 



BEQ 


DONE 

IF SO/ WE'RE DONE 

0520 

FE 

02 

11 


LDX 


DRCPTR 

GET BLOCK END ADDRESS 

0530 

EE 

02 



LDX 


2/ X 


0532 

BD 

03 

80 


JSR 


CMPflRE 

RRE WE THERE? 

0535 

26 

E4 


.. 

BNE 


DRECT0 

IF NOT/ MOVE ANOTHER 

0537 

FE 

02 

11 


LDX 


DRCPTR 

FIXUP DIRECT POINTER 

0530 

08 




INX 




053B 

08 




INX 




0530 

08 




INX 




0530 

08 




INX 




053E 

FF 

02 

11 


STX 


DRCPTR 


0541 

7E 

04 

oc 


JMP 


ONE 

GO TO NORMAL RELOCATION 





♦ CODE 

IS RELOCATED, CHECK FDB'S 

r 

0544 

70 

02 

08 

DONE 

TST 


FIXREF 

FIXING REFERENCES? 

0547 

27 

2F 



BEQ 


D0NE2 

IF NOT/ ALL DONE 

0549 

5F 




CLR 

B 



0540 

CE 

06 

84 


LDX 


8FXF8DS 


054D 

BD 

02 

29 


JSR 


PSTRNG 

OSK TO FIX FDB'S 

0559 

BD 

02 

22 


JSR 


INCH 

GET RESPONSE 

0353 

81 

4E 



CMP 

0 

tt'N 
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0555 

27 

21 



6EQ 

D0NE2 

IF N/ ALL DONE 

0557 

81 

59 



CMP ft 

#'Y 

0559 

27 

01 



BEQ 

PONE0 

IF Y/ JUMP AHEAD 

055B 

5C 




* INC B 


ELSE SET FLAG 

055C 

37 



DONE0 

PSH B 


SAVE FLAG 

055D 

CE 

03 

F0 


LDX 

#BEGADR+6 


0560 

BD 

02 

63 


JSR 

PINADD 

GET FDB ADDRESS 

0563 

33 




PUL B 


RESTORE FLAG 

0564 

80 

FF 

FF 


CPX 

#$FFFF 

ANY MORE FDB'S? 

0567 

27 

0F 



BEQ 

D0NE2 

IF NOT/ ALL DONE 

0569 

5D 




TST B 


IS FDB WITHIN RANGE? A 

056ft 

26 

68 



BNE 

DONE1 

IF NOT/ NO OFFSET . D a 

056C 

CE 

02 

09 


LDX 

#TEMPi 

It* 

056F 

8D 

31 



BSR 

ADDOFF 

ELSE ADD IN OFFSET J 

0571 

FE 

02 

09 


LDX 

TEMPI 

■ ’jvpl 

0574 

8D 

2C 


DONE1 

BSR 

ADDOFF 

FIXUP THE FDB 

0576 

20 

E4 



BRfl 

D0NE9 

ANY MORE? • 11 



■ • . 


* RLL 

FINISHED 

ROUTINE 

* # 

0578 

BD 

02 

36 

D0NE2 

JSR. 

PCRLF 


057B 

BD 

02 

36 


JSR 

PCRLF 


057E 

CE 

06 

6B 


LDX 

#FINE 


0581 

BD 

02 

29 


JSR 

PSTRNG 

REPORT COMPLETION 

0584 

BD 

02 

36 


JSR 

PCRLF 

• • 

0587. 

7E 

02 

25 


JMP 

MONITR 

EXIT THE PROGRAM 





* TWO 

BYTE COMPARE ROUTINE 

058ft 

FF 

02 

0F 

CMPARE 

STX 

CMPREG 


058D 

FE 

02 

13 


LDX 

OLDPTR 


0590 

FF 

02 

09 

CMPX 

STX 

TEMPI 

COMPARE CMPREG TO TEMPI 

0593 

B6 

92 

09 


LDft ft 

TEMPI 


0596 

B1 

02 

0F 


CMP ft 

CMPREG 


0599 

26 

06 



BNE 

CMPX1 


059B 

B6 

02 

0fi 


- LDft ft 

TEMP1+1 

•• 

059E 

B1 

02 

10 


CMP ft 

CMPREG+1 


0581 

39 



CMPX1 

RTS 







* ROUTINE TO ADD IN OFFSET 

03fl2 

R6 

01 


fiDDOFF 

LDA A 

1j X 

GET RIGHT HALF 

05R4 

BB 

02 

IE 


ADD ft 

OFFSTR 

ADD OFFSET RIGHT 

05 AT ft7 

01 



STft A 

1/ X 


P5fl9 

AS 

09 



LDA ft 

0/ X 

GET LEFT HALF 

05fl3 

B9 

02 

ID 


ADC A 

OFFSTL 

ADD OFFSET LEFT 

05flE 

fl7 

00 



STA A 

0/ X 


05B0 

39 




RTS 




* STRINGS 


05B1 09 
0582 GO 00 


TAPEON FCB 


0 » 0 > 0 .* Qj 4 
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05B4 00 64 



0586 00 

05B? 00 00 

TAPOFF 

FCB 

05B9 08 04 



05BB 0D 

CRLF 

FCB 

05BC 6fl 00 
05BE 00 00 
05C0 00 64 



05C2 2fl 

05C3 20 54 
05C5 53 43 
05C7 20 36 
05C9 38 30 
05CB 30 20 

INTRO 

FCC 

05CD 52 45 
05CP 4C 4F 
05D1 43 41 
05D3 54 4F 
05D5 52 20 
05D7 2A 



05D8 04 

. / 

. FCB 

05D9 50 

05DA 52 45 


FCC 

05DC 53 45 
05DE 4E 54 
05E0 28 50 



05E2 52 4F 



05E4 47 52 - 
05E6 41 4D 
05E8 3fl 



05E9 04 


FCB 

05EA 42 

05E3 45 47 
05ED 49 4E 
05EF 20 41 

BEGADR 

FCC 

05F1 44 44 

- 


05F3 52 45 
05F5 53 53 
05F7 3F 20 



05F9 04 


FCB 

05Ffl 20 

05FB 20 45 . 

ENDADR 

FCC 

05FD 4E 44 
05FF 20 41 



0601 44 44 
0603 52 45 
0605 53 53 
0607 3F 28 



0609 04 


FCB 

069A 28 

0608 20 20 
G60D 20 20 
069F 20 4D 
0611 4F 56 

NEW3G 

FCC 


0/ 0/ Q* Q* 4 


$D, $0, 0, 0, 0, 0, 4 


'* TSC 6300 RELOCflTOR *' 


4 

'PRESENT PROGRAM:' 


4 

'BEGIN ADDRESS? ' 


4 

' END ADDRESS? ' 


4 

' MOVE TO? ' 


*• 
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0613 45 20 
0615 54 4F 


061? 

3F 20 




0619 

04 

‘ 

FCB 

4 

061A 

40 

TRPSTR 

FCC 

'LORD FROM TAPE? ' 

0619 

4F 41 




061D 

44 20 




061F 

46 52 




0621 

4F 4D 




0623 

20 54 




0625 

41 50 




0627 

45 3F 




0629 

20 




062A 

04 


FCB 

4 

062B 

2E 

LORDED 

FCC 

. . LORD COMPLETED. ' 

062C 

2E 2E 




06£?E 

4C 4F 




0630 

41 44 




0632 

29 43 




0634 

4F 4D 




0636 

59 4C 

. t • 


. 

0638 

45 54 




063R 

45 44 




063C 

2E 



■v' 

063D 

04 


FCB 

4 

063E 

46 

FIXRFS 

FCC 

'FIX REFERENCES? ' 

063F 

49 53 




0641 

20 52 



. ... . . t \ L* 

0643 

45 46 




0645 

45 52 




0647 

45 4E 




0649 

43 45 




064B 

53 3F 




0640 

20 




064E 

04 


FC3 

4 

. 064F 

44 

DRCTBK 

FCC 

'DRTfl BLOCKS? ' 

0650 

41 54 


®~ ' ' 

* ‘ .. ...... ... . .... 

0652 

41 20 


... . . 


0654 

42 4C 




0656 

4F 43 




0658 

4B 53 



• 

065R 

3F 20 




065C 

04 


FCB 

4 

065D 

41 

CHANGE 

FCC 

'ALTER RANGE? ' 

065E 

4C 54 




0669 

45 52 




0662 

20 52 



• 

0664 

41 4E 




0666 

47 45 




0668 

3F 29 




066R 

04 


FCB 

4 

0668 

52 

FINE 

FCC 

'RELOCATION COMPLETED 

esse 

43 4C 




06SE 

4F 43 


















TSC 6839 RELOCflTOR 


0670 41 54 
0672 49 4F 
0674 4E 20 
0676 43 4F 
0678 4D 50 
067R4C 45 
067C 54 45 
067E 44 20 
0680 21 21 
0682 21 
0683 04 
0684 46 
0685 49 58 
0687 20 46 
0689 44 42 
068B 27 
068C 53 3F 
068E 20 04 
0690 4C 
0691 4F 41 
0693 44 20 
0695 45 52 
0697 52 4F 
0699 52.21 
069B 20 20 
069D 54 52 
7- 069F 59 20 
r :06fll 41 47 
06R3 41 49 
06fl5 4E 3F 
06fi7 20 
06R8 07 
06R9 04 
06RR 07 
06RB 20 3F 
06RD 20 04 
06RF 


FCB 

FXFBDS FCC 

FCB 

ERR FCC 


FCB 

WHRT FCB 

DRBEG RMB 



MNEMONIC ASSEMBLER 



4 

'FIX FDB' 


S 27, $53, $3F, $20, 4 


'LORD ERROR! TRV RGRIN? ' 


l 

7, 4 


7, $28, $3F, $28, 4 



END 

NO ERROR<S) DETECTED 


SYMBOL TRBLE: 


RDDOFF 05R2 
CMPREG 028F 
DELRY1 0327 
DONE1 0574 
DRCPTR 0211 
ENTER0 0410 
FIXREF 02O8 
IN1HX2 0250 
INRDDR 026R 


BEGRDR 05ER 
CMPX 0590 
DIFFRG 044B 
D0NE2 0578 
DRCTBK 064F 
ENTER1 0420 
FIXRFS 063E 
IN2MEX 028E 
INCH 0222 


BEGIN 032F 
CMPXi 05R1 
DIRECT 051E 
DR3EG 06RF 
DRECT0 051B 
ERR 0690 
FXFBDS 3634 
INADDB 0273 
INCPiR 043C 


CHANGE 065D 
CRLF 05BB 
DONE 0544 
DRBLK1 03E8 
ENDADR 05FA 
ERROR G2FA 
IN1HEX 0242 
IN'ADDl 027E 
INERR 0255 


CMPARE 053A 
DELAY 0324 
DCNE8 055C 
DRBLKS 03D0 
ENTER 0402 
FINE 0663 
IN1HX1 0244 
INADD2 028A 
INERR2 0261 
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INTRO 

05C2 

LDFRT1 

03R0 

LDFRTP 

0390 

LORD 

02R0 

L0RD1 

02AA 

L0RD2 

02E6 

L0RD25 

02E9 

L0RD3 

02F5 

L0RD35 

0312 

L0RD4 

0313 

LORDED 

062B 

LOOP 

0460 

L00P1 

047? 

L00P2 

0484 

MRVBE3 

043D 

MONITR 

0225 

NEW8G 

060R 

NEWPTR 

0215 

NEXT 

0506 

NOFFST 

0512 

NOFST1 

051? 

NOTflPE 

0426 

03JEND 

0217 

OFFSET 

04FB 

OFFSTL 

021D 

OFFSTR 

021E 

OLDPTR 

0213 

ONE 

04RC 

DUTCH 

021F 

PCRLF 

0236 

PDRTR 

0228 

PINRDD 

0268 

PLRV 

020? 

PNEXTS 

0228 

PSTRNG 

0229 

RETURN 

0241 

RGBEG 

0219 

RGEND 

0218 

STRRT 

0200 

TAPE 

02-36 

TRPEON 

0581 

TAPFIX 

03C4 

TRPOFF 

0586 

TRPSTR 

061R 

TEMPI 

0299 

TEMP2 

020B 

TEMP3 

020D 

THREE 

04C3 

TRVflG 

0304 

TWO 

0431 

WRIT 

03B5 

WHRT 

06RR 








OBJECT CODE: 


SI 

09 

0200 

8E 

0F 

FF 

7E 

03 

2F 

RS 









■ ; 


SI 

13 

021F 

7E 

El 

D1 

7E 

El 

RC 

7E 

E0 

E3 

08 

BD 

0B 

R6 

00 

81 

04- 

84 

SI 

13 

022F 

27 

10 

3D 

EC 

08 

20 

F5 

FF 

02 

09 

CE 

05 

BB 

8D 

ED 

FE 

DE 

SI 

13 

023F 

02 

09 

39 

8D 

DE 

80 

47 

2fl 

0D 

8B 

06 

2fl 

04 

SB 

87 

£fl 

83 

SI 

13 

024F 

05 

SB 

0fl 

£B 

01 

39 

31 

31 

7D 

02 

07 

27 

05 

31 

31 

7E 

R8 

SI 

13 

025F 

02 

FR 

CE 

06 

flfl 

8D 

C5 

20 

02 

8D 

BF 

7F 

02 

09 

7F 

02 

46 

SI 

13 

026F 

0fl 

8D 

B0 

81 

0D 

27 

14 

8D 

CC 

48 

48 

43 

43 

C6 

04 

43 

E0 

SI 

13 

027F 

79 

02 

0fl 

79 

02 

09 

5fl 

26 

F6 

29 

E6 

FE 

02 

09 

39 

8D 

1? 

SI 

13 

02-8 F 

B2 

43 

48 

48 

43 

16 

SD 

RB 

IB 

16 

FB 

02 

0B 

F? 

02 

0B 

FE 

SI 

13 

029F 

39 

86 

3C 

B7 

80 

07 

CE 

05 

B1 

8D 

81 

BD 

02 

22 

81 

53 

CB 

SI 

13 

02RF 

26 

F9 

BD 

02 

22 

81 

39 

2? 

5D 

83 

31 

26 

EE 

B7 

02 

03- 

74 

SI 

13 

02BF 

8D 

CD 

80 

02 

B? 

02 

00 

8D 

C6~ 

B7 

02 

09 

8D 

Cl 

B7 

02 

6E 

SI 

13 

02CF 

0fl 

FE 

02 

09 

BD 

©5 

SR 

22 

0E 

FE 

02 

1? 

BD 

05 

90 

23 

00 

SI 

13 

02DF 

06 

CE 

02 

0F 

BD 

05 

R2 

FE 

02 

0F 

8D 

R3 

7fl 

02 

0C 

27 

D4 

SI 

13 

02EF 

05 

fl? 

00 

38 

20 

F4 

7C 

02 

0B 

2? 

B0 

8D 

19 

8D 

26 

CE 

RC 

SI 

13 

02FF 

06 

90 

BD 

02 

29 

BD 

02 

£2 

81 

59 

27 

0? 

81 

4E 

26 

F5 

9R 

SI 

13 

03GF 

7E 

02 

25 

7E 

02 

R0 

86 

34 

B7 

80 

07 

CE 

05 

B6 

BD 

02 

D5 

SI 

13 

031F 

2B 

BD 

02 

36 

39 

CE 

FF 

FF 

09 

03 

09 

08 

89 

26 

F9 

39 

22 

SI 

13 

032F 

BD 

02 

36 

BD 

02 

36 

7F 

02 

06 

7F 

02 

08 

7F 

02 

07 

CE 

6R 

SI 

13 

033F 

06 

RF 

FF 

02 

11 

CE 

05 

C2 

BD 

02 

29 

BD 

02 

23 

CE 

05 

RC 

SI 

13 

034F 

ER 

BD 

02 

68 

FF 

02 

13 

FF 

02 

19 

CE 

05 

FR 

BD 

02 

68 

67 

SI 

13 

035F 

FF 

02 

17 

FF 

02 

IB 

CE 

06 

0R 

BD 

02 

68 

FF 

02 

15 

B6 

85 

SI 

13 

036F 

02 

16 

B0 

02 

14 

B7 

02 

IE 

B6 

82 

15 

B2 

02 

13 

B7 

02 

78 

SI 

13 

037F 

ID 

CE 

06 

3E 

BD 

02 

29 

BD 

02 

£2 

81 

4E 

2? 

03 

?C 

02 

FB 

SI 

13 

033F 

08 

CE 

06 

lfl 

BD 

02 

29 

BD 

02 

22 

81 

59 

27 

03 

7E 

04 

15 

SI 

13 

039F 

26 

70 

02 

06 

7C 

02 

0? 

BD 

02 

R0 

7F 

02 

07 

BD 

03 

24 

50 

SI 

13 

03RF 

CE 

06 

2B 

BD 

02 

29 

BD 

02 

22 

81 

£0 

26 

F9 

?D 

02 

03 

2B 

SI 

13 

038F 

26 

03 

7E 

02 

25 

FE 

92 

15 

FF 

02 

13 

CE 

02 

17 

BD 

05 

8fl 

SI 

13 

03CF 

RE 

CE 

86 

RF 

FF 

02 

0D 

CE 

06 

4F 

BD 

02 

29 

BD 

02 

22 

FB 

SI 

13 

03DF 

81 

4E 

26 

05 

CE 

FF 

FF 

20 

63 

BD 

02 

36 

CE 

05 

ER 

BD 

52 

SI 

13 

03EF 

02 

63 

8C 

FF 

FF 

27 

55 

8D 

OR 

CE 

05 

FR 

BD 

02 

68 

8D 

72 

SI 

13 

03 FF 

02 

23 

E6 

7D 

02 

06 

2? 

09 

CE 

02 

09 

BD 

85 

R2 

FE 

02 

FO 

SI 

13 

049F 

09 

FF 

02 

0B 

FE 

02 

0D 

B6 

02 

0B 

fl? 

00 

B6 

02 

0C 

R7 

E2 

SI 

13 

041F 

01 

03 

03 

FF 

02 

CD 

39 

7D 

02 

08 

26 

R5 

CE 

00 

00 

FF 

52 

SI 

13 

042F 

06 

RF 

CE 

FF 

FF 

FF 

06 

81 

FF 

06 

B3 

20 

30 

FE 

02 

15 

65 

SI 

13 

043F 

08 

FF 

32 

15 

FE 

02 

13 

03 

FF 

02 

13 

39 

8D 

C3 

CE 

06 

FF 

Si 

13 

044F 

5D 

BD 

32 

29 

BD 

02 

22 

31 

59 

26 

12 

CE 

05 

ER 

BD 

02 

E3 












TSC 6800 RELOCATOP, 


PAGE 


SI 13 045F 68 FF 02 19 CE 05 

SI 13 046F BD 05 8FI • 23 03 ?E 

SI 13 047F 23 03 7E 83 IE R6 

SI 13 048r 39 81 30 27 29 R6 

SI 13 049F 8E 27 21 81 5F 22 

SI 13 04flF 28 PB BD 04 3C R6 

SI 13 04BF 85 C0 2? E9 BD 04 

SI 13 04QF EE 00 BD 05 90 £5 

SI 13 04DF EE 00 BD 05 90 22 

SI 13 04EF 27 0fi 84 FQ 81 70 

SI 13 04FF IE 16 R6 00 B9 02 

SI 13 050F 3C 20 9fl FE 02 13 

SI 13 051F 00 FE 02 15 R7 00 

SI 13 052F 11 EE 02 BD 05 8fl 

SI 13 053F 02 11 7E 04 RC 7D 

SI 13 054F 29 BD 02 22 81 4E 

SI 13 055F F0 BD 02 68 33 8C 

SI 13 056F 8D 31 FE 02 09 8D 

SI 13 057F 06 6B BD 02 29 BD 

SI 13 058F 13 FF 02 09 B6 02 

SI 13 059F 02 10 39 R6 01 BB 

SI 13 05RF 00 39 00 00 00 00 

SI 13 05BF 00 00 04 2R £0 54 

SI 13 05CF 4C 4F 43 41 54 4F 

SI 13 05DF 54 20 50 52 4F 47 

SI 13 05EF 20 41 44 44 52 45 

SI 13 05FF 20 41 44 44 52 45 

SI 13 060F 20 4D 4F 56 45 20 

SI 13 061F 46 52 4F 4D 20 54 

SI 13 062F 4F 41 44 20 43 4F 

SI 13 063F 49 53 20 52 45 46 

SI 13 064F 44 41 54 41 20 42 

SI 13 065F 54 45 52 20 52 41 

SI 13 066F 43 41 54 49 4F 4E 

SI 13 067F 20 21 21 21 04 46 

SI 13 068F 04 4C 4F 41 44 20 

SI 13 069F 59 20 41 47 41 49 

S9 


BD 02 68 FF 02 IB FE 02 17 EO 

44 FE 02 11 EE 00 BD 05 3fl F5 

FE 02 13 R7 00 FE 82 13 84 H7 

31 CE 27 29 81 8C 27 £5 81 09 

34 F0 81 £0 27 05 BD 04 3C 28 

FE 02 15 R7 00 20 EF R6 00 4R 

FE 02 19 FF 02 QF FE 02 13 9B 

FE 02 IB FF 02 0F FE 02 13 3fl 

FE 02 13 09 R6 00 08 81 7E B2 

04 R6 00 27 1C R6 01 BB 02 EC 

FE 02 15 R7 00 E7 01 BD 04 D2 

09 E6 01 20 EB BD 04 3C R6 94 

02 17 BD C5 8R 27 17 FE 02 6B 

E4 FE 62 11 03 08 03 03 FF 31 

03 27 2F 5F CE 06 84 BD 82 14 

21 81 59 27 01 5C 37 CE 05 QF 

FF 27 0F 5D 26 08 CE 02 09 1R 

20 E4 BD 02 36 BD 02 36 CE 3C 

36 7E 02 25 FF 02 QF FE 02 65 

B1 02 0F 26 06. B6 02 0R B1 19 

IE R7 01 R6 00 B9 02 ID R7 RE 

00 00 00 90 04 0D 0R 00 00 E0 

43 28 36 33 30 30 20 52 45 4B 

20 2R 04 50 52 45 53 45 4E E9 

41 4D 3R 04 42 45 47 49 4E D9 

53 3F 20 04 £0 20 45 4E 44 58 

53 3F £0 04 20 20 20 20 20 BF 

4F 3F £0 04 4C 4F 41 44 20 lfl 

50 45 3F 20 04 2E £E 2E 4C 10 

50 4C 45 54 45 44 2E 94 46 RE 

52 45 4E 43 45 53 3F 29 04 Rl 

4F 43 4B 53 3F 20 04 41 4C RF 

47 45 3F £0 04 52 45 4C 4F 7fl 

43 4F 4D 50 4C 45 54 45 44 FC 

58 20 46 44 42 £7 53 3F £0 34 

52 52 4F 52 21 20 20 54 r-52 82 

3F 29 07 04 07 20 3F 20* 334 ?fl 


FR 

05 

00 

00 

0B 

00 

3C 

3C 

2C 

26 

ID 

R6 

FE 

26 

02 

27 

FF 

2C 

02 . 

99 

02 

04 

53 

52 

52 

53 

53 

54 

41 

4D 

45 

4C 

4E 

£0 

49 

45 

4E 








■ 


I 
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* TSC 6800 RELOCRTOR 

* 

* ' COPYRIGHT <C> 1977 BY 

* TECHNICAL SYSTEMS CONSULTANTS, INC. 

* P. 0. BOX 2574,* W. LAFAYETTE, IN 47986 

* <317> 742-7509 

* 

0209 ORG *0280 


* PROGRAM STRRT 


9209 

as 

0F 

FF 

START 

LDS 

ttf8FFF 

SETUP STACK 

0293 

7E 

03 

2F 


JMP 

BEGIN 

START THE PROGRAM 





* TEMPORARY STORAGE 


9206 




TAPE 

RMS 

1 

LORDED FROM TAPE FLRG 

0207 




PLAY 

RM9 

1 

RECORDER ON FLAG 

9208 




FIXREF 

RMB 

1 

FIX REFERENCES FLAG 

0209 




TEMPI 

RM8 

2 

TEMPORARY REGISTER 

0203 




TEMP2 

RMB 

2 

TEMPORARY REGISTER 

029D 




TEMP3 

RMB 

2 

TEMPORARY REGISTER 

020F. 




CMPREG 

RMB 

2 

2 BYTE COMPARE REG. 

0211 




DRCPTR 

RMB 

2 

DIRECT STACK POINTER 

0213 




OLDPTR 

RMB 

• 2 

OLD PROGRAM POINTER 

0215 




NEWPTR 

RMB 

2 

MEW PROGRAM POINTER 

0217 




OBJEND 

RMB 

2 

END OF OLD PROGRAM 

0219 




RGBEG 

RMB 

2 

RANGE BEGIN RDDRESS 

0213 




RGEND 

RMB 

2 

RANGE END ADDRESS 

021D 




OFFSTL 

RMB 

1 

LEFT HALF OFFSET 

021E 




OFFSTR 

RMB 

1 

RIGHT HALF OFFSET 





* EXTERNAL ROUTINE JUMPS 


021F 

7E 

El 

D1 

OUTCH 

JMP— 

~*E1D1~ 

OUTPUT ROUTINE 

0222 

7E 

El 

AC 

INCH 

JMP 

seiac 

INPUT ROUTINE 

0225 

7E 

E0 

E3 

MONITR 

JMP 

SE0E3 

EXIT ADDRESS 





* PRINT 

STRINGS 


0228 

08 



PNEXTS 

INX 



0229 

80 

08 


PSTRNG 

BSR 

PCRLF 

PRINT CR AND LF 

0228 

A6 

00 


PDATA 

LDA A 

0, X 

GET CHARACTER 

022D 

81 

04 



CMP A 

#4 

IS IT EOT? 

022F 

27 

10 



BEQ 

RETURN 


0231 

8D 

EC 



BSR 

OUTCH 

OUTPUT IT 

0233 

08 




INX 



0234 

20 

F5 



BRA 

PDATA 


8236 

FF 

02 

09 

PCRLF 

STX 

TEMPI 

SAVE X REGISTER 

0239 

CE 

05 

B8 


LDX 

#CRLF 

POINT TO STRING 

023C 

8D 

ED 



BSR 

PDATA 

PRINT THE STRING 

0235 

FE 

62 

89 


LDX 

TEMPI 

RESTORE X REGISTER 

0241 

39 



RETURN 

RTS 
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* INPUT 1 HEX CHARACTER 


0242 

8D 

DE 


INiHEX 

8SR 

INCH 

GET CHARACTER 

0244 

88 

4? 


IN1HX1 

SUB A 

#$4? 

IS IT VRLID? 

0246 

2A 

0D 



BPL 

INERR 


0248 

8B 

06 



ADD fl 

#6 


024fl 

2fl 

04 



BPL 

IN1HX2 


0240 

88 

07 



ADD A 

#7 


024E 

2fl 

05 



BPL 

INERR 


0259 

88 

0R 


IN1HX2 

ADD fl 

#10 


9252 

2B 

01 



BMI 

INERR 


0254 

39 




RTS 


IF SO, RETURN 

0255 

31 



INERR 

INS 


IF NOT, ERROR 

0256 

31 




INS 



025? 

7D 

02 

0? 


TST 

PLAV 

IS TAPE ON? 

025R 

2? 

05 



BEQ 

INERR2 


025C 

31 




INS 



025D 

31 




INS 



025E 

7E 

02 

Ffl 


JMP 

ERROR 

IF SO, TRPE ERROR 

0261 

CE 

06 

RR 

INERR2-- 

LDX 

#WHAT 

ELSE REPORT KEY ERROR 

0264 

8D 

C5 



BSR 

PDATA 


0266 

29 

02 



BRA 

INADDR- 

TRY AGAIN 



' 


* INPUT 

NUMBER 

TO X REGISTER 

0268 

8D 

BF 


PINADD 

BSR 

PSTRNG 

PRINT STRING FIRST 

026A 

7F 

02 

09 

INADDR- 

CLR 

TEMPI 

CLEAR REGISTER 

026D 

?F 

02 

0fl 


CLR 

TEMP1+1 


0270 

8D 

80 


INADD0 

BSR 

INCH 

GET CHARACTER 

0272 

81 

0D 



CMP A 

#$0D 

IS IT A RETURN? 

0274 

27 

14 



BEQ 

INADD2 

IF SO WE'RE DONE 

0276 

8D 

CC 



BSR 

IN1HX1 

ELSE, CHECK FOR HEX 

0278 

48 




ASL A 


SHIFT IT OVER 

0279 

48 




ASL A 



027R 

48 




ASL A 



027B 

48 




ASL A 


----- -- - ------- ■ . .. ■ 

027C 

C6 

04 



LDR B 

#4 ' 


027E 

48 



INRDD1 

ASL A 


AND INTO REGISTER 

027F 

79 

@2 

0fl 


ROL 

TEMP1+1 


0282 

79 

02 

09 


ROL 

TEMPI 


0285 

sa 




DEC B 



0286 

26 

F6 



BNE 

INADD1 


0288 

20 

E6 



BRA 

INADD0 

GO GET ANOTHER 

028A 

FE 

02 

09 

INADD2 

LDX 

TEMPI 


028D 

39 




RTS 







* INPUT 

2 HEX DIGITS 


028E 

8D 

B2 


IN2HEX 

BSR 

INIHEX 

GET 1ST DIGIT 

0290 

48 




ASL A 


SHIFT IT OVER 

0291 

48 




ASL A 



0292 

48 




ASL A 



0293 

48 




ASL A 
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0294 

16 



TRB 


SAVE IT 


0295 

8D 

RB 


BSR 

IN1HEX 

GET 2ND 

CHRRRCTER 

029? 

IB 



RBR 


RDD IN 

FIRST 

0290 

16 



TRB 




0299 

FB 

©2 

08 

HDD B 

TEMP2 

RDD TO 

CHECKSUM 

029C 

F? 

02 

0B 

STR B 

TEMP2 



029F 

39 



RTS 





* LORD fl MIKBUG FORMRT TAPE 


02R0 

86 

3C 


LORD 

LDR 

R 

#530 

SETUP CONTROL FIR 

02R2 

B 7 

80 

0? 


STR 

fl 

$8007 


02R5 

CE 

05 

B1 


LDX 


#TRPEON 

PRINT CONTROL CHRS. 

02R8 

8D 

81 



BSR 


PDfiTfl 


02RR 

BD 

02 

22 

LOAD1 

JSR 


INCH 

GET CHRRRCTER 

02RD 

81 

53 



CMP 

fl 

#'S 

IS IT AN 'S'? 

02RF 

26 

F9 



BNE 


LORD1 

LOOP IF NOT 

02B1 

BD 

02 

22 


JSR 


INCH 

GET CHARACTER 

02B4 

81 

39 



CMP 

fl 

#'9 

IS IT Fl '9'? 

02B6 

27 

5D 



BEQ 


L0RD4 

IF SO WE'RE DONE 

G2B8 

80 

31 



SUB 

fl 

4'1 

COMPARE TO fl '1' 

02BR 

26 

EE 



BNE 


LORD1 

LOOP IF NOT EQUAL 

02BC 

B7 

02 

0B 


STR 

fl 

TEMP2 

CLEAR CHECKSUM 

02BF 

8D 

CD 



BSR 


IN2HEX 


02C1 

89 

02 



SUB 

fl 

*2 

GET BYTE COUNT - 2 

02C3 

B7 

02 

0C 


STR 

fl 

TEMP2+1 

SRVE IT 

02C6 

8D 

C6 



BSR 


IN2HEX 

GET LORD ftDDRESS 

02C8 

B? 

02 

09 


STR 

fl 

TEMPI 


02CB 

8D 

Cl 



BSR 


IN2HEX 


02CD 

B7 

02 

0fl 


STR 

fl 

TEMP1+1 


02D0 

FE 

02 

09 


LDX 


TEMPI 


02D3 

BD 

05 

8fl 


JSR 


C-MPRRE 

COMPARE OLDPTR 

02D6 

22 

0E 



BHI 


L0RD2 

JUMP IF OUTSIDE RANGE 

02D8 

FE 

02 

17 


LDX 


OBJEND 


02DB 

BD 

05 

90 


JSR 


CMPX 

COMPARE ADDRESS & OBJEND 

02DE 

23 

06 


- • * • 

BLS 


L0RD2 

JUMP IF OUTSIDE RANGE 

02E0 

CE 

02 

0F 


LPX 


#CNPREG 

IF WITHIN RRNGE - , 

02E3 

BD 

05 

R2 


JSR 


RDDOFF 

RDD IN OFFSET 

02ES 

FE 

02 

0F 

L0RD2 

LDX 


CMPREG 

GET FINAL ADDRESS 

02E9 

8D 

R3 


L0RD25 

BSR 


IN2HEX 

GET R BYTE 

02EB 

7fl 

02 

0C 


DEC 


TEMP2+1 

DEC. BYTE COUNT 

02EE 

2? 

05 



BEQ 


L0RD3 

EXIT IF = 0 

02F0 

fl? 

00 



STR 

fl 

0, X 

ELSE STORE BYTE 

02F2 

08 




INX 




02F3 

20 

F4 



BRR 


L0RD25 

LOOP UNTIL DONE 

02F5 

?C 

02 

08 

L0RD3 

INC 


TEMP2 

IS CHECKSUM RIGHT? 

02F8 

27 

B9 



BEQ 


LORD1 

IF SO, GET NEXT RECORD 

02FR 

8D 

19 


ERROR 

BSR 


L0RD4 

ERROR. . . TURN OFF TAPE 

02FC 

8D 

26 



BSR 


DELRV 

PAUSE AWHILE 

02FE 

CE 

06 

90 


LDX 


#ERR 


0301 

BD 

02 

29 


JSR 


PSTRNG 

REPORT ERROR 

0394 

BD 

02 

22 

TRVRG 

JSR 


INCH 

GET RESPONSE 

0307 

81 

59 



CMP 

R 

#'Y 


G309 

2? 

07 



BEQ 


L0RD35 

IF YES, TRY AGAIN 
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030B 

81 

4E 



CMP P 

1 #'N 


030D 

26 

F5 



BNE 

TRVftG 


030F 

?E 

02 

25 


JMP 

MONITR 

IF HO, EXIT PROGRAM 

0312 

?E 

02 

ft0 

L0AD35 

JMP 

LORD 


0315 

86 

34 


L0BD4 

LDft fl 

1 #$34 

RESET CONTROL PIft 

031? 

B7 

80 

0? 


STfi fl 

1 $800? 


031ft 

CE 

05 

B6 


LDX 

#TAPOFF 

PRINT CONTROL CHARS. 

031D 

BD 

02 

2B 


JSR 

PDRTfi 


0320 

BD 

02 

36 


JSR 

PCRLF 


0323 

39 




RTS 







* DELRV 

ROUTINE 


0324 

CE 

FF 

FF 

DELRV 

LDX 

#$FFFF 


032? 

09 



DELfiVl 

DEX 


DELftV RWHILE 

0328 

08 




INX 



0329 

09 




DEX 



032ft 

08 




INX 



032B 

09 




DEX 



032C 

26 

F9 



BNE 

DELfiVl 


032E 

39 




RTS 







* START 

OF MAIN PROGRAM 


032F 

BD 

02 

36 

BEGIN 

JSR 

PCRLF 

PRINT 2 LINE FEEDS 

0332 

BD 

02 

36 


JSR 

PCRLF 


8335 

7F 

62 

06 


CLR 

TAPE 

CLEAR FLAGS 

0«i38 

7F 

02 

08 


CLR 

FIXREF 


8338 

7F 

02 

87 


CLR 

PLfiV 


033E 

CE 

06 

flF 


LDX 

#DRBEG 

SETUP DIRECT POINTER 

0341 

FF 

02 

11 


STX 

DRCPTR 


0344 

CE 

05 

C2 


LDX 

#INTRO 


034? 

BD 

02 

29 


JSR 

PSTRNG 

PRINT INTRO MESSAGE 

034fl 

BD 

02 

28 


JSR 

* PNEXTS 


034D 

CE 

05 

Eft 


LDX 

#BEGADR 


0350 

BD 

02 

68 


JSR 

PINADD 

GET BEGIN ADDRESS. 

0353 

FF 

02 

13 


STX 

OLDPTR 


0356 

FF 

02 

19 


STX 

RGBEG 

SET RANGE BEGIN 

0359 

CE 

05 

Fft 


LDX 

#ENDADR 


035C 

BD 

02 

68 


JSR 

PINflDD 

GET END ADDRESS 

035F 

FF 

02 

17 


STX 

OBJEND 


0362 

FF 

02 

IB 


STX 

RGEND 

SET RANGE END 

0365 

CE 

06 

0fl 


LDX 

#NEWBG 


0368 

BD 

02 

68 


JSR 

PINADD 

GET NEW BEGIN ADDRESS 1 

0368 

FF 

02 

15 


STX 

NEWPTR 


036E 

B6 

02 

16 


LDft ft 

NEWPTR+1 

CALCULATE OFFSET 

0371 

B0 

02 

14 


SUB ft 

OLDPTR+1 


03?4 

B7 

02 

IE 


STfl ft 

OFFSTR 


037? 

B6 

02 

15 


LDft ft 

NEWPTR 


03?ft 

B2 

02 

13 


SBC ft 

OLDPTR 


037D 

B? 

02 

ID 


STft R 

OFFSTL 

i 

0380 

CE 

06 

3E 


LDX 

#FIXRFS 


0383 

BD 

02 

29 


JSR 

PSTRNG 

ASK TO FIX REFERENCES 

0386 

BD 

02 

22 


JSR 

INCH 

GET RESPONSE 
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8389 

81 

4E 



CMP 

8 

#'N 


033B 

27 

03 



BEQ 


LDFRTP 


0380 

7C 

02 

08 


INC 


FIXREF 

IF YES, SET FL8G 

0399 

CE 

06 

18 

LDFRTP 

LDX 


4TRPSTR 


0393 

BO 

02 

29 


JSR 


PSTRNG 

LORDING FROM TRPE? 

0396 

BD 

02 

22 


JSR 


INCH 

GET RESPONSE 

0399 

81 

59 



CMP 

8 

# X Y. 


0398 

27 

03 



BEQ 


LDFRT1 


039D 

7E 

04 

26 


JMP 


N0T8PE 

IF NOT, JUMP RHERD 

0380 

70 

02 

06 

LDFRT1 

INC 


T8PE 

IF SO, SET TRPE FLRG 

0383 

70 

02 

07 


INC 


PL8V 

0386 

BO 

62 

80 


JSR 


LORD 

GO LORD TRPE 

0389 

7F 

02 

07 


CLR 


PLAY 


0380 

BO 

03 

24 


JSR 


DEL8Y 

P8USE RWHILE 

03RF 

CE 

06 

2B 


LDX 


#L08DED 


03B2 

BD 

02 

29 


JSR 


PSTRNG 

REPORT L08D COMPLETE 

03B5 

BO 

02 

22 

WRIT 

JSR 


INCH 

GET R CH8R8CTER 

03B8 

81 

20 



CMP 

8 

#S20 


03B8 

26 

F9 



BNE 


WRIT 

BUT ONLY ACCEPT 8 SPACE 

03BC 

70 

02 

08 


TST 


FIXREF 

FIXING REFERENCES? 

03BF 

26 

03 



'BNE 


T8PFIX 


03C1 

7E 

02 

25 


JMP 


MONITR 

IF NOT, EXIT PROGRAM 

03C4 

FE 

02 

15 

T8PFIX 

LDX 


NEWPTR 


03C7 

FF 

02 

13 


STX 


OLDPTR 

IF SO, FIX OLDPTR 

0308 

CE 

02 

17 


LDX 


#OBJEND 


03CD 

BD 

05 

82 


JSR 


flDDOFF 

RNO OBJECT END 





* ENTER 

DIRECT 

DflTR BLOCKS 

0300 

CE 

06 

8F 

DRBLKS 

LDX 


8DRBEG 


0303 

FF 

02 

00 


STX 


TEMP3 

SAVE DIRECT BEGIN 

0306 

CE 

06 

4F 


LDX 


#DRCTBK 


0309 

BO 

02 

29 


JSR 


PSTRNG 

RNY DIRECT RELOCRTES? 

03DC 

BO 

02 

22 


JSR 


INCH 


03DF 

81 

4E 



CMP 

8 

#'N 


03E1 

26 

05 



BNE 


DRBLK1 

IF SO GO GET THEM 

03E3 

CE 

FF 

FF 


LDX 


#*FFFF 


03E6 

28 

63 



BRR 

- ■ 

DIFFRCT 

IF NOT, JUMP AHEAD 

03E8 

BO 

02 

36 

DRBLK1 

JSR 


PCRLF 


03EB 

CE 

05 

E8 


LDX 


#BEG8DR 


03EE 

BO 

02 

68 


JSR 


PIN8D0 

GET BLOCK BEGIN 

03F1 

8C 

FF 

FF 


CPX 


#$FFFF 

FINISHED? 

03F4 

27 

55 



BEQ 


DIFFRG 

IF SO, JUMP AHEAD 

03F6 

8D 

08 



BSR 


ENTER 

PUT ADDRESS ON STRCK 

03F8 

CE 

05 

F8 


LDX 


#ENDRDR 


03FB 

BO 

02 

68 


JSR 


PIN8D0 

GET BLOCK END 

03FE 

80 

02 



BSR 


ENTER 

PUT IT ON STACK 

0400 

20 

E6 



BRR 


DRBLK1 

LOOP BACK 

0402 

70 

02 

06 

ENTER 

TST 


TRPE 

LORDED FROM TAPE? 

0405 

27 

09 



BEQ 


ENTER0 

IF NOT GO RHERD 

0407 

CE 

02 

09 


LDX 


#TEMP1 


0408 

BO 

05 

82 


JSR 


RDDOFF 

IF SO, ADO OFFSET 

0400 

FE 

02 

09 


LDX 


TEMPI 


0410 

FF 

02 

0B 

ENTERS 

STX 


TEMPS 

SRVE ADDRESS 
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0413 

FE 

02 

0D 


LDX 

TEMP3 

POINT TO DIRECT STACK 

0416 

86 

02 

0B 


LDft ft 

TEMP2 

PUT ADDRESS ON STACK 

0419 

R7 

00 



STft ft 

0, X 


041B 

86 

02 

0C 


LDft ft 

TEMP2+1 


041E 

R7 

01 



STft ft 

1/ X 


0420 

08 



ENTER1 

INX 


FIX DIRECT STACK PTR. 

0421 

09 




INX 



0422 

FF 

02 

0D 


SIX 

TEMP3 


0425 

39 




RTS 



0426 

7D 

02 

08 

NOTflPE 

TST 

FIXREF 

FIXING REFERENCES? 

0429 

26 

fi5 



8NE 

DRBLKS 

IF SO, GO ENTER DIRECTS 

0428 

CE 

00 

00 


LDX 

#$0000 

IF NOT, MAKE THE 

042E 

FF 

06 

fiF 


STX 

DRBEG 

ENTIRE RAM SPACE INTO 

0431 

CE 

FF 

FF 


LDX 

#$FFFF 

A DIRECT RELOCATE BLOCK 

0434 

FF 

06 

B1 


STX 

DRBEG+2 


0437 

FF 

06 

B3 


STX 

DRBEG+4 


043ft 

20 

39 



BRfl 

LOOP 

START RELOCATION 





* ROUTINE TO ! 

INCREMENT 

POINTERS 

043C 

FE 

02 

15 

INCPTR 

’ LDX 

NEWPTR 


043F 

08 




INX 


INCREMENT NEW POINTER 

0440 

FF 

02 

15 


STX 

NEWPTR 


0443 

FE 

.02 

13 


LDX 

OLDPTR 


0446 

08 




INX 


INCREMENT OLD POINTER 

0447 

FF 

02 

13 


STX 

OLDPTR 


044ft 

39 




RTS 







* CHANGE REFERENCE RANGE ROUTINE 

0448 

8D 

C3 


DIFFRG 

BSR 

ENTER0 

SET DIRECT STACK END 

044D 

CE 

06 

5D 


LDX 

^CHANGE 


0450 

BD 

02 

29 


JSR 

PSTRNG 

ASK TO CHANGE RANGE 

0453 

BD 

02 

22 


JSR 

INCH 

GET RESPONSE 

0456 

81 

59 



CMP ft 

#'V 


0458 

26 

12 


- 

BNE 

LOOP 

IF NO, START RELOCATION 

045ft 

CE 

05 

Eft 


LDX 

#BEGRDR 

: • 

045D 

BO 

02 

68 


JSR 

PINflDD 

GET RANGE BEGIN 

0460 

FF 

02 

19 


STX 

RGBEG 


0463 

CE 

05 

Ffl 


LDX 

#ENDflDR 


0466 

BD 

02 

68 


JSR 

PINflDD 

GET RANGE END 

0469 

FF 

02 

IB 


STX 

RGEND 






* MAIN 

RELOCATION LOOP 


846C 

FE 

0«. 

17 

LOOP 

LDX 

OBJEND 

IS OLDPTR > OBJEND? 

046F 

BD 

0b 

9ft 


JSR 

CMPftRE 


0472 

23 

03 



BLS 

LOOP1 


0474 

7E 

05 

4, 


JMP 

DONE 

IF SO WE'RE DONE 

0477 

FE 

02 

11 

LOOP1 

LDX 

DRCPTR 

IS THIS A DIRECT BLOCK? 

047ft 

EE 

00 



LDX 

0/ X 


047C 

BD 

05 

8ft 


JSR 

CMPftRE 


047F 

25 

03 



BCS 

LOOPS 


0481 

?E 

05 

IE 


JMP 

DIRECT 

IF SO, GO MOVE DIRECT 
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0484 

R6 

00 


L00P2 

LDR fi 

X 

© 

MOVE OPCODE 

0486 

FE 

02 

15 


LDX 

NEWPTR 


0489 

87 

00 



STR fl 

0, X 


0488 

FE 

02 

13 


LDX 

OLDPTR 


048E 

84 

30 



RND 8 


CHECK FOR 3 BVTE INST. 

0498 

81 

30 



CMP R 

lr-530 

0492 

27 

29 



BEQ 

MflV8E3 

COULD BE 3 BVTES 

0494 

86 

09 



LDR fl 

0, X 


0496 

81 

CE 



CMP fl 

#$CE 

CHECK FOR LDX # 

0498 

27 

29 



BEQ 

THREE 


0498 

81 

8C 



CMP fl 

#$3C 

CHECK FOR CPX # 

049C 

27 

25 



BEQ 

THREE 


049E 

81 

8E 



CMP fl 

#*8E 

CHECK FOR LDS # 

0480 

27 

21 



BEQ 

THREE 


0482 

81 

5F 



CMP fl 

#$5F 

LOOK FOR 2 BVTE INST. 

0484 

22 

0B 



BHI 

TWO 


0486 

84 

F0 



AND fl 

#$F0 

LOOK FOR 1 BVTE INST. 

0488 

81 

20 



CMP 8 

#$28 


0488 

27 

05 



BEQ 

TWO 






* ONE BYTE INSTRUCTION 


048C 

BO 

04 

3C 

ONE 

JSR 

INCPTR 


048F 

20 

BB 



BRfl 

LOOP 

GET NEXT INSTRUCTION 





*TWQ BVTE INSTRUCTION 


04B1 

BD 

04 

3C 

TWO 

JSR 

INCPTR 

POINT TO 2ND BVTE 

04B4 

86 

00 



LDfl fl 

0, X 

MOVE IT 

04B6 

FE 

02 

15 


LDX 

NEWPTR 


04B9 

87 

00 



STR fl 

0, X 


04BB 

20 

EF 



BRfl 

ONE 

NEXT INSTRUCTION 

04BD 

86 

00 


MRVBE3 

LDfl fl 

0, X 

CHECK 3 OR 1 BVTE INST. 

04BF 

85 

C0 



BIT fl 

#$C0 


04C1 

27 

E9 



BEQ 

ONE 






* THREE 

BVTE INSTRUCTION 


04C3 

BD 

04 

3C 

THREE 

JSR 

INCPTR 

POINT TO REFERENCE 

04C6 

FE 

02 

19 


LDX 

RGBEG 

IS IT BELOW RANGE BEG? 

04C9 

FF 

02 

0F 


STX 

CMPREG 


04CC 

FE 

02 

13 


LDX 

OLDPTR 


04CF 

EE 

00 



LDX 

0, X 


04D1 

BD 

05 

90 


JSR p . 

CMPX 


04D4 

25 

3C 



BLO " 

NOFFST 

IF SO, NO OFFSET 

04D6 

FE 

02 

IB 


LDX 

RGEND 

IS IT ABOVE RANGE END? 

04D9 

FF 

02 

0F 


STX 

CMPREG 


04DC 

FE 

02 

13 


LDX 

OLDPTR 


04DF 

EE 

00 



LDX 

0, X 


04E1 

BD 

05 

99 


JSR 

CMPX 


04E4 

22 

2C 



BHI 

NOFFST 

IF SO, NO OFFSET 

04E6 

FE 

02 

13 


LDX 

OLDPTR 


04E9 

09 




DEX 
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04EA 

R6 

00 



LDR 

A 

0, X 

GET OPCODE 

04EC 

08 




INX 




04ED 

81 

7E 



CMP 

A 

tt$7E 

IS IT R JUMP? 

04EF 

27 

0R 



BEQ 


OFFSET 

IF SO, DO OFFSET 

04F1 

84 

F0 



AND 

A 

tf$F0 

CHECK FOR PAGE 0 REF. 

04F3 

81 

79 



CMP 

A 



04F5 

26 

84 



BNE 


OFFSET 


04F? 

R6 

00 



LDR 

A 

0, X 


04F9 

27 

1C 



BEQ 


NOFSTi 

IF PAGE 0, NO OFFSET 

04FB 

R6 

01 


OFFSET 

LDR 

A 

1, X 

ADD OFFSET TO REFERENCE 

04FD 

BB 

02 

IE 


ADD 

A 

OFFSTR 


0509 

16 




TAB 




0501 

R6 

00 



LDR 

R 

0, X 


0503 

B9 

02 

ID 


RDC 

fl 

OFFSTL 


0506 

FE 

02 

15 

NEXT 

LDX 


NEWPTR 

STORE RESULT 

0509 

R7 

00 



STR 

fl 

0, X 


0508 

E7 

01 



STR 

B 

1, X 


050D 

BD 

04 

3C 


JSR 


INCPTR 


0510 

20 

9fl 



BRR 


ONE 

GET NEXT INSTRUCTION 

0512 

FE 

02 

13 

NOFFST 

LDX 


OLDPTR 

NO OFFSET ADDED 

0515 

R6 

09 



- LDR 

fl 

0, X 


0517 

E6 

01 


NOFST1 

LDR 

B 

1, X 


0519 

20 

EB 



BRR 


NEXT 






* MOVE 

DIRECT 

DATA BLOCK 


051B 

BD 

04 

3C 

DRECT0 

JSR 


INCPTR 

BUMP POINTERS 

051E 

R6 

00 


DIRECT 

LDR 

fl 

0, X 

MOVE ONE BVTE 

8520 

FE 

02 

15 


LDX 


NEWPTR 


0523 

R7 

00 



STR 

R 

0, X 


0525 

FE 

02 

17 


LDX 


OBJEND 


0528 

BD 

05 

8R 


JSR 


CMPRRE 

END OF PROGRAM? 

052B 

27 

17 



BEQ 


DONE 

IF SO, WE''RE DONE 

052D 

FE 

02 

11 


LDX 


DRCPTR 

GET BLOCK END ADDRESS 

0530 

EE 

02 



LDX 


2, X 


0532 

BD 

05 

8fl 


JSR 


CMPRRE 

RRE WE THERE? 

0535 

26 

E4 


- 

BNE 


DRECT0 

IF NOT, MOVE ANOTHER 

0537 

FE 

02 

11 


LDX 


DRCPTR 

FIXUP DIRECT POINTER 

053R 

08 




INX 




053B 

08 




INX 




053C 

08 




INX 




053D 

08 




INX 




053E 

FF 

02 

11 


STX 


DRCPTR 


0541 

7E 

04 

RC 


JMP 


ONE 

GO TO NORMRL RELOCATION 





* CODE 

IS RELOCATED, CHECK FDB'S 

«■ 

0544 

7D 

02 

08 

DONE 

TST 


FIXREF 

FIXING REFERENCES? 

0547 

27 

2F 



BEQ 


D0NE2 

IF NOT, RLL DONE 

0549 

5F 




CLR 

B 



054R 

CE 

06 

84 


LDX 


4FXF8DS 


054D 

BD 

02 

29 


JSR 


PSTRNG 

RSK TO FIX FOB'S 

0559 

BD 

02 

22 


JSR 


INCH 

GET RESPONSE 

0353 

81 

4E 



CMP 

R 

tt'H 
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0555 

27 

21 



BEQ 

D0NE2 

IF N, ALL DONE 

0557 

81 

59 



CMP 8 

tt'V 

0559 

27 

01 



BEQ 

DONE0 

IF V, JUMP AHEAD 

655B 

5C 




' INC B 


ELSE SET FLAG 

055C 

37 



DONE0 

PSH B 


SAVE FLAG 

055D 

CE 

03 

F0 


LDX 

#BEGRDR+6 


0560 

BD 

02 

68 


JSR 

PINADD 

GET FDB ADDRESS 

0563 

33 




PUL B 


RESTORE FLAG 

0564 

8C 

FF 

FF 


CPX 

8SFFFF 

ANV MORE FDB'S? 

0567 

27 

0F 



BEQ 

D0NE2 

IF NOT, ALL DONE 

0569 

5D 




TST B 


IS FDB WITHIN RANGE? A A 

056A 

26 

08 



BNE 

DONE1 

IF NOT, NO OFFSET 

056C 

CE 

02 

09 


LDX 

#TEMPi 

056F 

8D 

31 



BSR 

ADDOFF 

ELSE ADD IN OFFSETJ « tO- 

0571 

FE 

02 

09 


LDX 

TEMPI 

FIXUP THE FDB 

0574 

8D 

2C 


DONE1 

BSR 

ADDOFF 

0576 

20 

E4 



BRA 

DONE0 

ANV MORE? 





* 

3> 

r 

r 

FINISHED 

ROUTINE 


0578 

BD 

02 

36 

D0NE2 

JSR 

PCRLF 


057B 

BD 

02 

36 


JSR 

PCRLF 


057E 

CE 

06 

6B 


LDX 

&FINE 


0581 

BD 

0£ 

29 


JSR 

PSTRNG 

REPORT COMPLETION 

0584 

BD 

02 

36 


JSR 

PCRLF 


0587 

7E 

82 

25 


JMP 

MONITR 

EXIT THE PROGRAM 





* TWO 

BVTE COMPARE ROUTINE 

0588 

FF 

02 

0F 

CtIPRRE 

STX 

CMPREG 


058D 

FE 

02 

13 


LDX 

OLDPTR 


0590 

FF 

02 

09 

CMPX 

STX 

TEMPI 

COMPARE CMPREG TO TEMPI 

0593 

B6 

02 

09 


LDA 8 

TEMPI 


0596 

B1 

02 

0F 


CMP 8 

CMPREG 


0599 

26 

06 



BNE 

CMPX1 


059B 

86 

02 

08 


LDA 8 

TEMP1+1 


059E 

B1 

02 

10 


CMP A 

CMPREG+1 


0581 

39 



CMPX1 

RTS 




* ROUTINE TO ADD IN OFFSET 


0382 86 

01 


ADDOFF LDA 

A 

1, X 

GET 

RIGHT HALF 

0584 BB 

02 

IE 

ADD 

A 

OFFSTR 

RDD 

OFFSET RIGHT 

0587 A7 

01 


STA 

A 

1, X 



0589 AS 

09 


LDA 

A 

0, X 

GET 

LEFT HALF 

05AB B9 

02 

ID 

ADC 

A 

OFFSTL 

RDD 

OFFSET LEFT 

038E 87 

00 


STA 

A 

0, X 



05B0 39 



RTS 






* STRINGS 


0581 09 TRPEGN FCB 0, 0.. 0, 0 , 4 

0582 09 00 













■ 


■ 
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05B4 00 04 
6586 00 
05B? 00 00 
05B9 00 04 
05BB 00 
05BC Qfl 00 
05BE 00 00 
05C0 ©0 04 
05C2 2R 
05C3 20 54 
05C5 53 43 
05C7 29 36 
05C9 38 39 
05CB 38 20 
05CD 52 45 
05CF 4C 4F 
05D1 43 41 
05D3 54 4F 
05D5 52 20 
05D7 2fl 
05D8 04 
05D9 50 
05DR 52 45 
05DC 53 45 
05DE 4E 54 
05E0 28 50 
05E2 52 4F 
05E4 47 52 
05E6 41 4D 
05E8 3R 
05E9 04 
05ER 42 
05EB 45 47 
05ED 49 4E 
05EF 20 41 
05F1 44 44 
05F3 52 45 
05F5 53 53 
05F7 3F 20 
05F9 04 
05FR £0 
05FB £0 45 . 
05FD 4E 44 ' 

05FF 20 41 
0601 44 44 
0683 52 45 
0605 53 53 
0607 3F 29 
0609 04 
069R 20 
060B 20 28 
060D 20 20 
060F 29 4D 
0611 4F 56 


TRPOFF FCB 


CRLF FCB 


INTRO FCC 


FCB 

FCC 


FCB 

BEGflDR FCC 


FCB 

ENDRDR FCC 


FCB 

NEW8G FCC 


0^ 0> Q/ 0/ 4 


$R> 0, 0, 0, 0, 4 


"* TSC 6809 RELOCRTOR *' 


4 

"PRESENT PROGRAM:" 


4 

"BEGIN RDDRESS? " 


4 

" ENO RDDRESS? " 


4 


MOVE TO? " 
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0613 45 28 
0615 54 4F 
061? 3F 20 
0619 04 
061A 40 
0619 4F 41 
061D 44 20 
061F 46 52 
0621 4F 4D 
0623 29 54 
0625 41 50 
062? 45 3F 
0629 20 
062A 04 
0628 2E 
062C 2E 2E 
062?E 4C 4F 
0638 41 44 
0632 29 43 
0634 4F 4D 
0636 59 4C 
0638 45 54 
063A 45 44 
063C 2E 
063D ©4 
063E 46 
063F 49 53 
0641 20 52 
0643 45 46 
0645 45 52 
0647 45 4E 
0649 43 45 
064B 53 3F 
064D 20 
064E 04 
064F 44 
0650 41 54 
0652 41 20 
0654 42 4C 
0656 4F 43 
0658 4B 53 
065R 3F 20 
065C 04 
065D 41 
065E 4C 54 
0663 45 52 
0662 28 52 
0664 41 4E 
0666 47 45 
8668 3F 29 
0668 04 
0668 52 
esse 45 4C 
©S6E 4F 43 


FCB 4 

TRPSTR FCC 'LOAD FROM TAPE? ' 


FCB 4 

LOADED FCC '. . . LORD COMPLETED. ' 


FCB 4 

FIXRFS FCC 'FIX REFERENCES? ' 


FCB 4 

DRCTBK FCC 'DATA BLOCKS? ' 


FCB 

CHANGE FCC 


4 

'ALTER RANGE? ' 


FCB 

FINE FCC 


4 

'RELOCATION COMPLETED !!!' 
















TSC 6830 RELOCATOR 


TSC MNEMONIC ASSEMBLER PAGE IB 


0670 41 54 
0672 49 4F 
0674 4E £0 
0676 43 4F 
0678 4D 50 
0670 4C 45 
067C 54 45 
067E 44 20 
0680 £1 £1 
0682 21 
0683 04 
0684 46 
0685 49 58 
0637 20 46 
0689 44 42 
068B 27 
068C 53 3F 
068E 20 04 
0690 4C 
0691 4F 41 
0693 44 20 
0695 45 52 
0697 52 4F 
0699 52.21 
069B 20 £0 
069D 54 52 
069F 59 20 
06fli 41 47 
0603 41 49 
0605 4E 3F 
0607 20 
0608 07 
0609 04 
0600 07 
06OB 20 3F 
06OD 20 04 
06OF 


FCB 

FXFBDS FCC 

FCB 

ERR FCC 


FCB 

WHOT FCB 

DRBEG RMB 


4 

'FIX FDB' ! 

$27/ $53/ $3F/ $20/ 4 

'LORD ERROR! TRV OGOINV ' 


7/ 4 

7/ $20/ $3F/ $20/ 4 



END 

NO ERROR<S> DETECTED 


SVflBOL TRBLE: 


RDDOFF 0502 
CMPREG 020F 
DEL0V1 0327 
D0NE1 0574 
DRCPTR 0211 
ENTER0 0410 
FIXREF 0208 
IN1HX2 0250 
INODDR 0260 


BEGODR 05ER 
CMPX 0590 
DIFFRG 044B 
D0NE2 0578 
DRCTBK 064F 
ENTER1 0420 
FIXRFS 063E 
IN2HEX 028E 
INCH 0222 


BEGIN 032F 
CNPX1 0501 
DIRECT 051E 
DR3EG 06OF 
DRECT0 051B 
ERR 0690 
FXFBDS 0684 
INODD0 8270 
INCPTR Q43C: 


CHONGE 065D 
CRLF 05BB 
DONE 0544 
DRBLK1 03E8 
ENDODR 05FO 
ERROR 02F0 
IN1HEX 0242 
IN0DD1 027E 
INERR 0255 


CfIPORE 0530 
DELOV 0324 
DCNE0 055C 
DR8LKS 03D0 
ENTER 0402 
FINE 0663 
IN1HX1 0244 
IN0DD2 0280 
INERR2 6261 
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INTRO 

05C2 

LDFRT1 

03R0 

LDFRTP 

0390 

LORD 

02R0 

LORD1 

• 2RR 

L0RD2 

02E6 

L0RD25 

02E9 

L0RD3 

02F5 

L0RD35 

0312 

L0RD4 

9315 

LORDED 

062B 

LOOP 

046C 

LOOP1 

047? 

L00P2 

0484 

MRVBE3 

649D 

MONITR 

0225 

NEWBG 

060R 

NEWPTR 

0215 

NEXT 

0506 

NOFFST 

0512 

NOFST1 

051? 

NOTRPE 

0426 

OBJEND 

0217 

OFFSET 

04F8 

OFFSTL 

021D 

CFFSTR 

021E 

OLDPTR 

0213 

ONE 

04RC 

OUTCH 

021F 

PCRLF 

9236 

PDRTR 

0228 

PINflDD 

0268 

PLRV 

0207 

PNEXTS 

0228 

PSTRNG 

0229 

RETURN 

0241 

RGBEG 

0219 

RGEND 

021B 

STRRT 

0200 

TRPE 

0296 

TRPEON 

05B1 

TBPFIX 

03C4 

TRPOFF 

05B6 

TRPSTR 

061R 

TEMPI 

0299 

TEMP2 

020B 

TEMP3 

020D 

THREE 

04C3 

TRVRG 

0304 

TWO 

0431 

WRIT 

03B5 

WHRT 

06RR 








OBJECT CODE: 


SI 

09 

0200 

8E 

0F 

FF 

?E 

03 

2F 

R8 









; 


SI 

13 

021F 

7E 

El 

D1 

7E 

El 

RC 

7E 

E0 

E3 

08 

8D 

0B 

R6 

00 

81 

04- 

84 

SI 

13 

022F 

2? 

10 

SD 

EC 

08 

20 

F5 

FF 

02 

09 

CE 

05 

BB 

8D 

ED 

FE 

DE 

SI 

13 

023F 

02 

09 

39 

8D 

DE 

80 

47 

SR 

0D 

8B 

06 

2fl 

04 

8B 

0? 

£R 

83 

SI 

13 

024F 

05 

SB 

0fl 

2B 

01 

39 

31 

31 

7D 

02 

07 

27 

05 

31 

31 

7E 

R8 

SI 

13 

025F 

02 

Ffl 

CE 

06 

RR 

8D 

C5 

S0 

02 

8D 

BF 

7F 

02 

09 

7F 

02 

46 

SI 

13 

026F 

0fl 

8D 

B0 

81 

0D 

27 

14 

8D 

CC 

48 

48 

48 

48 

C6 

04 

43 

E0 

SI 

13 

027F 

79 

02 

0fl 

79 

02 

09 

5R 

S6 

F6 

30 

E6 

FE 

02 

09 

39 

8D 

1? 

SI 

13 

02-8F 

B2 

48 

48 

48 

48 

16 

SD 

RB 

IB 

16 

FB 

02 

0B 

F? 

02 

0B 

FE 

SI 

13 

029F 

39 

86 

3C 

B7 

80 

07 

CE 

05 

B1 

8D 

81 

BD 

02 

22 

81 

53 

CB 

SI 

13 

02RF 

26 

F9 

BD 

02 

22 

81 

39 

S? 

5D 

88 

31 

26 

EE 

B7 

02 

08- 

74 

SI 

13 

02BF 

8D 

CD 

80 

02 

B7 

02 

0C 

8D 

C6~ 

B7 

02 

09 

8D 

Cl 

B? 

02 

6E 

SI 

13 

02CF 

0R 

FE 

02 

09 

BD 

05 

8R 

38 

0E 

FE 

02 

17 

BD 

05 

90 

23 

00 

SI 

13 

02DF 

06 

CE 

02 

0F 

BD 

©5 

R2 

FE 

03 

0F 

8D 

R3 

7fl 

02 

0C 

2? 

D4 

SI 

13 

02EF 

05 

fl? 

00 

38 

20 

F4 

?C 

03 

0B 

27 

B0 

8D 

19 

8D 

26 

CE 

RC 

SI 

13 

02FF 

06 

90 

BD 

02 

29 

BD 

02 

S3 

81 

59 

37 

0? 

81 

4E 

26 

F5 

9R 

SI 

13 

030F 

?E 

02 

25 

?E 

02 

R0 

86 

34 

B7 

80 

0? 

CE 

05 

B6 

BD 

02 

D5 

SI 

13 

031F 

26 

BD 

02 

36 

39 

CE 

FF 

FF 

09 

03 

09 

08 

09 

26 

F9 

39 

22 

SI 

13 

032F 

BD 

02 

36 

BD 

02 

36 

7F 

0S 

06 

7F 

02 

08 

7F 

02 

07 

CE 

6fi 

SI 

13 

033F 

06 

RF 

FF 

02 

11 

CE 

05 

C3 

BD 

03 

29 

BD 

02 

£8 

CE 

05 

RC 

SI 

13 

034F 

EH 

BD 

02 

68 

FF 

02 

13 

FF 

03 

19 

CE 

05 

Ffl 

BD 

02 

63 

67 

SI 

13 

035F 

FF 

02 

1? 

FF 

02 

IB 

CE 

06 

0R 

BD 

02 

68 

FF 

02 

15 

B6 

35 

SI 

13 

036F 

02 

16 

B0 

02 

14 

B7 

02 

IE 

B6 

02 

15 

B2 

02 

13 

B? 

02 

78 

SI 

13 

037F 

ID 

CE 

06 

3E 

BD 

02 

29 

BD 

02 

22 

81 

4E 

2? 

03 

7C 

02 

FB 

SI 

13 

038F 

08 

CE 

06 

•1R 

BD 

02 

29 

BD 

02 

22 

81 

59 

27 

03 

7E 

©4 

15 

SI 

13 

039F 

26 

7C 

82 

06 

7C 

02 

07 

BD 

02 

R0 

7F 

02 

07 

BD 

03 

24 

58 

SI 

13 

03RF 

CE 

06 

SB 

BD 

02 

29 

BD 

03 

32 

81 

20 

26 

F9 

?D 

02 

08 

2B 

SI 

13 

038F 

26 

03 

?E 

02 

25 

FE 

02 

15 

FF 

02 

13 

CE 

02 

17 

BD 

05 

8fl 

SI 

13 

03CF 

R2 

CE 

06 

RF 

FF 

02 

0D 

CE 

06 

4F 

BD 

02 

29 

BD 

02 

22 

FB 

Si 

13 

03DF 

81 

4E 

26 

05 

CE 

FF 

FF 

30 

63 

BD 

03 

36 

CE 

05 

Efl 

BD 

52 

SI 

13 

03EF 

02 

68 

8C 

FF 

FF 

27 

55 

8D 

OR 

CE 

05 

Ffl 

BD 

02 

68 

8D 

72 

SI 

13 

03FF 

02 

20 

E6 

7D 

02 

06 

2? 

09 

CE 

02 

09 

BD 

05 

R2 

FE 

02 

F0 

SI 

13 

040F 

09 

FF 

02 

08 

FE 

02 

0D 

B6 

03 

0B 

R7 

00 

B6 

02 

0C 

R7 

E2 

SI 

13 

041F 

01 

08 

08 

FF 

02 

0D 

39 

7D 

03 

08 

36 

R5 

CE 

00 

00 

FF 

52 

Si 

13 

042F 

86 

RF 

CE 

FF 

FF 

FF 

06 

B1 

FF 

06 

B3 

20 

30 

FE 

02 

15 

65 

SI 

13 

043F 

08 

FF 

02 

15 

FE 

02 

13 

08 

FF 

02 

13 

39 

8D 

C3 

CE 

06 

FF 

SI 

13 

044F 

5D 

BD 

02 

29 

BD 

02 

22 

31 

59 

26 

12 

CE 

05 

Efl 

BD 

02 

E5 









■ 
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# 

SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
Si 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
S9 


abtivi. > 

045F 68 
84SF BD 
047F 23 
048F 30 
049F BE 
04RF 28 
04BF 85 
04CF EE 
04DF EE 
04EF 27 
04FF IE 
050F 3C 
051F 00 
052F 11 
053F 02 
054F 29 
055F F0 
056F 8D 
057F 06 
058F 13 
059F 02 
05RF 00 
05BF 00 
05CF 4C 
05DF 54 
05EF 20 
05FF 20 
060F 20 
061F 46 
062F 4F 
063F 49 
064F 44 
065F 54 
066F 43 
067F 20 
968F 04 
069F 59 


X 3 

FF 02 
05 8fl 
03 7E 
81 30 
27 21 
BB BD 
CO 27 
00 BD 
00 BD 
0fl 84 
16 R6 
20 9R 
FE 02 
EE 02 
11 7E 
BD 02 
BD 02 
31 FE 
6B BD 
FF 02 
10 39 
39 00 
00 04 
4F 43 

20 50 
41 44 
41 44 
4D 4F 
52 4F 
41 44 
58 20 
41 54 
45 52 
41 54 

21 21 
4C 4F 
20 41 


h 

19 CE 
23 03 
03 IE 
27 29 
81 5F 
04 3C 
E9 BD 
05 90 
05 90 
F0 81 
00 B9 
FE 02 
15 87 
BD 05 
04 RC 
22 81 
68 33 
02 09 
02 29 
09 B6 
R6 01 
00 00 
2R 20 
41 54 
52 4F 
44 52 
44 52 
56 45 
4D 20 
20 43 
52 45 
41 20 

20 52 
49 4F 

21 04 
41 44 
47 41 


£ 7- 

05 FR 
7E 05 
R6 00 
R6 00 
22 0B 
R6 00 
04 3C 
25 3C 
22 2C 
70 26 
02 ID 
13 R6 
00 FE 
8R 26 
7D 02 
4E 27 
8C FF 
8D 2C 
BD 02. 
02 09 
BB 02 
00 04 
54 53 
4F 52 
47 52 
45 53 

45 53 
20 54 
54 41 
4F 4D 

46 45 
42 4C 
41 4E 
4E 20 
46 49 
20 45 
49 4E 


< 5 ? 

BD 

44 

FE 

31 

84 

FE 

FE 

FE 

FE 

04 

FE 

00 

02 

E4 

08 

21 

FF 

20 

36 

B1 

IE 

00 

43 

20 

41 

53 

53 

4F 

50 

50 

52 

4F 

47 

43 

58 

52 

3F 


3 

02 


u> 


n 

FF 


13 

?? 


R7 

29 


FE 02 11 
02 
CE 

F0 81 20 
02 15 R7 
02 19 FF 
02 IB FF 
02 13 09 
R6 80 27 
02 15 R7 
E6 01 20 
17 BD 05 
FE 02 11 
27 2F 5F 
81 59 27 
27 0F 5D 
E4 BD 02 
7E 02 25 
02 OF 26 
R7 01 R6 
00 00 00 
20 36 33 
2R 04 50 
4D 3R 04 
3F 20 04 
20 84 
20 04 
45 3F 20 
4C 45 54 
45 4E 43 
43 4B 53 
45 3F 20 
4F 4D 50 
20 46 44 
52 4F 52 
20 07 04 


3F 

3F 


<2 

02 

EE 

00 

81 

27 

©0 

02 

02 

R6 

1C 

00 

EB 

8R 

03 

CE 

01 

26 

36 

FF 

06. 

00 

04 

30 

52 

42 

£0 

20 

4C 

04 

45 

45 

3F 

04 

4C 

42 

21 

07 


n (h 

IB FE 
00 BD 
FE 02 
8C 27 
05 BD 
20 EF 
0F FE 
0F FE 
00 03 
R6 01 
E7 01 
BD 04 
27 17 
08 03 
06 84 
5C 37 
08 CE 
BD 02 
02 0F 
B6 02 
B9 02 
0D 0R 
30 20 
45 53 
45 47 
20 45 
20 20 
4F 41 
2E £E 

44 2E 
53 3F 
20 04 
52 45 

45 54 
27 53 
£0 20 
20 3F 


* i~ // 

02 17 
05 8R 
13 34 
£5 81 


04 3C 
R6 00 
02 13 
02 13 
81 7E 
BB 02 
BD 04 
3C R6 
FE 02 
03 FF 
BD 02 
CE 05 
02 09 
36 CE 
FE 02 
0fl B1 
ID R7 
00 80 
52 45 
45 4E 
49 4E 
4E 44 
20 20 

44 20 
2E 4C 
04 46 
20 04 
41 4C 
4C 4F 

45 44 
3F 20 
54 fSZ 
20*04 


<r r. 

EO 

F5 

R7 

09 

28 

4R 

9B 

3R 

B2 

EC 

D2 

94 

6B 

31 

14 

0F 

lfl 

3C 

65 

19 

RE 

E3 

4B 

E9 

D9 

58 

BF 

1R 

18 

RE 

R1 

RF 

7R 

FC 

34 

82 

7fi 










* 
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LOCN B1 B2 B3 

* 

* 

* TSC 6800 ASSEMBLER SYSTEM 

* COPYRIGHT 1977 (C) BY 

* 

* TECHNICAL SYSTEMS CONSULTANTS* INC. 

* PO BOX 2574 

* WEST LAFAYETTE* INDIANA 47906 

* 

* 


# 

* INSTRUCTION TYPES 


* 

TYPE 

1 

INHERENT 

* 

TYPE 


RELATIVE 

* 

TYPE 

3 

INDEXED * EXTENDED 0 * 1 

* 

TYPE 

4 

DIRECT * INDEXED * EXTENDED 0*1*2 

* 

TYPE 

5 

IMMEDIATE * DIRECT* INDEXED * EXTENDED 

* 

TYPE 

6 

INHERENT (A * B)* INDEXED * EXTENDED 0 * 

* 

TYPE 

7 

INHERENT (A*B) 0*1 

* 

TYPE 

8 

FCC 

* 

TYPE 

9 

FCB 

* 

TYPE 

10 

FDB 

* 

TYPE 

11 

SPC 

* 

TYPE 

12 

OPT 

* 

TYPE 

13 

PAG 

* 

TYPE 

14 

ORG 

* 

TYPE 

15 

EQU 

* 

TYPE 

16 

END * MON 

* 

TYPE 

17 

NAM*TTL 

* 

* 

TYPE 

18 

RMB 

* 

* 

ERROR 

: TYPES 


* 

* 0 SYMBOL TABLE FULL 

* 1 UNDEFINED SYMBOL 

* 2 MULTIPLY DEFINED SYMBOL 

* 3 UNRECOGNIZABLE MNEMONIC 

* 4 ILLEGAL CHARACTER IN LABEL 

* 5 ILLEGAL CHARACTER IN OPERAND 

* 6 RELATIVE BRANCH TOO LONG 

* 7 SYNTAX ERROR 

* 8 ILLEGAL INDEX VARIABLE 

* 9 ILLEGAL CHARACTER FOR SPECIFIED BASE 

* 10 ILLEGAL OPTION SWITCH 

*11 TOO MANY OPERANDS IN DATA STATEMENT 

* 

* 

* STORAGE 




ORG 

$40 


* 



0040 

LBLBEG 

RMB 

n 

A— 

0042 

LBLEND 

RMB 



0*1*2*3 
*2*3 
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LOCN B1 B2 B3 


0044 

SRCBEG 

RMB 

9 

Am 

0046 

SRCEND 

RMB 

2 

0048 

LINBYT 

RMB 

1 

0049 

MEMOBJ 

RMB 

9 

Am 

004B 

PC 

RMB 

n 

Am 

004D 

SRCPTR 

RMB 


004F 

LABEL 

RMB 

*6 

0055 

PRFLG 

RMB 

1 

0056 

ERRFLG 

RMB 

1 

0057 

MATFLG 

RMB 

1 

0058 

ENDFLG 

RMB 

1 

0059 

PCFLAG 

RMB 

1 

005A 

DATFLG 

RMB 

1 

005B 

FCCFLG 

RMB 

1 

005C 

EJFLG 

RMB 

1 

005D 

P3FLG 

RMB 

1 

005E 

PRTFLG 

RMB 

1 

005F 

PAGFLG 

RMB 

1 

0060 

LBLMSK 

RMB 

1 

0061 

CKSUM 

RMB 

1 

0062 

OBJINT 

RMB 

1 

0063 

OPN 

RMB 

1 

0064 

TERM 

RMB 

1 

0065 

XSAVE 

RMB 

2 

0067 

SPSAVE 

RMB 

9 

0069 

XTEMP 

RMB 

2 

006B 

XTEMF’l 

RMB 

2 

006D 

XTEMP2 

RMB 

o 

006F 

XTEMP3 

RMB 

2 

0071 

XTEMP4 

RMB 

2 

0073 

XTEMP5 

RMB 

9 

0075 

LTEMP 

RMB 

2 

0077 

QTEMP3 

RMB 

2 

0079 

GTEMP2 

RMB 

n 

A«* 

007B 

QTEMP 

RMB 

2 

007D 

TEMP 

RMB 

1 

007E 

OPCODE 

RMB 

1 

007F 

OF'l 

RMB 

1 

0080 

0P2 

RMB 

1 

0081 

P2ERR1 

RMB 

1 

0082 

P2ERR2 

RMB 

1 

0083 

P2ERR3 

RMB 

1 

0084 

LSTERR 

RMB 

1 

0085 

ERRF’TR 

RMB 

2 

0087 

BYTPTR 

RMB 

2 

0089 

OBJPTR 

RMB 

<9 

Am 

008B 

MEMPTR 

RMB 

2 

008D 

LINF'TR 

RMB 

9 

Am 

008F 

PASS 

RMB 

1 

0090 

OF'CNT 

RMB 

1 

0091 

RNDM 

RMB 

3 

0094 

OPTF'TR 

RMB 

o 

Am 

0096 

OF'NPTR 

RMB 

9 

Am 

0098 

SAOF'TR 

RMB 

r? 

Am 

009A 

MCOUNT 

RMB 

2 
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009C 



LSTPCM 

RMB 

4m 




009E 



LASTPC 

RMB 

Am 




OOAO 



OBJADR 

RMB 

9 




00A2 



LASTM 

RMB 

2 




00A4 



HASHCT 

RMB 

i 




00A5 



ERRCNT 

RMB 

i 




00A6 



BYTCNT 

RMB 

i 




00A7 



BUFCNT 

RMB 

i 




00A8 



LINCNT 

RMB 

i 




00A9 



ERRORS 

RMB 

i 

0 

\ i oo 


OOAA 



GAP 

RMB 

i 

til 

4 pPF 


OOAB 



MODFY 

RMB 

i 

W t/y 

CP O g>q 


OOAC 



PAGENO 

RMB 

2 

M G 

€>0 O O 


OOAE 



LIST 

RMB 

1 

3 



OOAF 



SYMBOL 

RMB 

1 

1/ L) 

2 o c»o 


OOBO 



GENER 

RMB 

1 

o 

Of 

U *0 A $ vo ct^L 

00B1 



PAGER 

RMB 

1 



’ -r IT 

00B2 



TAPE 

RMB 

1 


Of 0t>L t L i 

^ 4 \ £ e>c?LjL-j 

00B3 



MEMORY 

RMB 

1 


(Of eo c \c\ 

LOA foo^Cf 

00B4 



OBJBUF 

RMB 

18 




00C6 



TITLE 

RMB 

33 


io> r ^ 

it A f co<-| 6 




* 




*1 £ t>3 o 

ji-'r i c joc 




* 

* 



o \ AO 

T 



0036 


LINES 

ERU 

54 





OOOA 


EJCHR 

ERU 

4>0A 







# 



OCP F A 

VSA, 





ORG 

$100 


^r\f> f E Of} O 

0100 



ERRSTK 

RMB 

256 




0200 



BYTSTK 

* 

RMB 

256 



■ 

0300 

/CD 

m 

3> 

O 

7F 

* 

MAIN 

LDS 

#$A07F 

SET STACK *%**%%%*%%%*% 

0303 

BD 03 

26 


JSR, 

P1INIT 




0306 

BD 03 

B1 


JSR 

PASONE 




0309 

BD 03 

6F 


JSR 

P2INIT 




030C 

BD 03 

D9 


JSR 

PASTWO 




030F 

BD 03 

26 


JSR 

P1INIT 

' 



0312 

BD 03 

Bi 


JSR 

PASONE 




0315 

BD 03 

6F 


JSR 

P3INIT 




0318 

BD 05 

BB 

fc 4 A C 

JSR 

PASTHR 

V 

| U 



* 

* EXTERNAL LINKAGES 


03 IB 

7E EO DO 

MON 

JMP 

$EODO c ' RETURN TO MONITOR PROGRAM 

031E 

86 20 

OUTS 

LDA A 

#' 

0320 

7E El D1 

OUTCH 

JMP 

$E1D1 

0323 

7E El til 

TAPOUT 

JMP 

*Eltil 


' * 

* 




* 

* 

** P1INIT 

* PASS 1 INITIALIZATION. MUST BE 

* RUN BEFORE A SERIES OF PASS 1 RUNS. 

0326 86 FF P1INIT LDA A *$FF 
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B1 

B2 

B3 






0328 

97 

AE 



STA 

A 

LIST 


032A 

97 

BO 



STA 

A 

GENER 


032C 

97 

AF 



STA 

A 

SYMBOL 


032E 

97 

5? 



STA 

A 

PCFLAG 


0330 

40 




NEG 

A 



0331 

97 

A8 



STA 

A 

LINCNT 

INITIALIZE COUNT 

0333 

4F 




CLR 

A 



0334 

97 

B1 



STA 

A 

PAGER 

SET 'OFF' OPTIONS 

0336 

97 

AC 



STA 

A 

PAGENO 


0338 

97 

AD 



STA 

A 

PAGENO+1 


033A 

97 

A5 



STA 

A 

ERRCNT 

SET COUNT 

033C 

97 

56 



STA 

A 

ERRFLG 

CLEAR FLAG 

033E 

97 

B2 



STA 

A 

TAPE 


0340 

97 

B3 



STA 

A 

MEMORY 


0342 

97 

58 



STA 

A 

ENDFLG 

CLR FLAG 

0344 

97 

A? 



STA 

A 

ERRORS 


0346 

86 

7F 



LDA 

A 

♦ $7F 


0348 

97 

60 



STA 

A 

LBLMSK 

SET MASK- 

034A 

CE 

01 

00 


LDX 


♦ERRSTK 


034D 

DF 

85 



STX 


ERRPTR 

SET POINTER- 

034F 

DE 

40 



LDX 


LBLBEG 

GET LABEL TABLE START 

0351 

6F' 00 


CLRLBL 

CLR 


OrX 

SET WHOLE TABLE TO 0 

0353 

08 




INX 




0354 

?C 

42 



CPX 


LBLEND 

CHECK DONE 

0356 

26 

F9 



BNE 


CLRLBL 

LOOP TILL DONE 

0358 

CE 

00 

C6 


LDX 


♦TITLE 


035B 

86 

20 



LDA 

A 

♦ ' 


035D 

A7 

00 


SETTL 

STA 

A 

OtX 


035F 

08 




INX 




0360 

8C 

00 

E6 


CPX 


♦TITLE+32 

CHECK ALL DONE 

0363 

26 

F8 



BNE 


SETTL 

GO FINISH 

0365 

86 

04 



LDA 

A 

♦4 


0367 

A7 

00 



STA 

A 

OrX 

SET EOT 

036? 

CE 

00 

00 


LDX 


♦0 


036C 

DF 

4B 



STX 


PC 

SET PC TO 0 

036E 

3? 



* 

RTS 


'f' .-'.’I* t 

■ V: 





* 

** P2INIT 








* PASS 

2 INITIALIZATION. 

MUST BE RUN 





* BEFORE A SERIES OF PASS 2 RUNS. 

036F 

86 

FF 


P2INIT 

LDA 

A 

♦ *FF 


0371 

97 

62 



STA 

A 

OBJINT 

SET TOGGLE 

0373 

97 

5D 



STA 

A 

P3FLG 

SET NOT PASS 3 

0375 

CE 

01 

00 


LDX 


♦ERRSTK 


0378 

DF 

85 



STX 


ERRPTR 

INITIALIZE ERROR PTR 

037A 

CE 

00 

00 


LDX 


♦0 


037D 

DF 

4B 



STX 


PC 

INITIALIZE PC 

037F 

CE 

FF 

FF 


LDX 


♦$FFFF 


0382 

DF 

9C 



STX 


LSTPCM 


0384 

DF 

9E 



STX 


LASTPC 

SET OBJECT PC'S 

0386 

4F 




CLR 

A 



0387 

97 

A7 



STA 

A 

BUF.CNT 


0389 

97 

9A 



STA 

A 

MCOIJNT 


038B 

97 

9B 



STA 

A 

MCOIJNTU 
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B2 

B3 






038D 

97 

58 



STA 

A 

ENDFLG 

CLEAR FLAG 

038F 

CE 

00 

B4 


LDX 


♦OBJBUF 


0392 

DF 

89 



STX 


OBJPTR 

SET OBJECT PTR 

0394 

BE 

49 



LDX 


MEMOBJ 


0396 

DF 

8B 



SIX 


MEMPTR 

SET MEMORY PTR 

0398 

DF 

A2 



STX 


LASTM 


039A 

DE 

40 



LDX 


LBLBEG 

GET LABEL PTR 

039C 

A6 

00 


SETBIT 

LDA 

A 

OfX 

GET FIRST CHAR 

039E 

27 

04 



BEO 


NOLAB 

IF Of NO LABEL 

03A0 

8A 

80 



ORA 

A 

#$80 

SET FLAG BIT 

03A2 

A7 

00 



STA 

A 

OfX 

PUT BACK 

03A4 

C6 

08 


NOLAB 

LDA 

B 

*8 

SET COUNT 

03A6 

08 



ADVPTR 

INX 



MOVE PTR 

03A7 

9C 

42 



CPX 


LBLEND 

SEE IF DONE 

03A9 

27 

05 



BEG 


P2IN3 


03AB 

5A 




DEC 

B 



03AC 

26 

F8 



BNE 


ADVPTR 

SEE IF AT NEW POSITION 

03AE 

20 

EC 



BRA 


SETBIT 

GO SET NEXT FLAG 

03B0 

39 



P2IN3 

* 

RTS 








* 

** P3INIT 








* PASS 

3 INITIALIZATION 



036F 


P3INIT 

* 

EGU 


P2INIT 

SAME AS PASS 2 





* 

** PASONE 








* PERFORMS ASSEMBLY PASS 

1 

03B1 

9F 

67 


PASONE 

STS 


SPSAVE 

SAVE SP 

03B3 

DE 

44 



LDX 


SRCBEG 

GET SOURCE POINTER 

03B5 

09 




DEX 



ADJUST 

03B6 

7F 

00 

8F 


CLR 


PASS 

SET PASS1 

03B9 

DF 

4D 


PASS1 

STX 


SRCPTR 

SAVE PTR 

03BB 

BD 

OB 

75 


JSR 


PARSE 

PARSE UP THE LINE 

03BE 

DF 

6F 



STX 


XTEMP3 

SAVE SOURCE POINTER 

03C0 

96 

4F 



LDA 

A 

LABEL 

GET FIRST CHAR OF LAB. 

03C2 

27 

03 



BEG 


PASSU 

IF NO LABEL 

03C4 

BD 

08 

A2 


JSR 


PUTLBL 

GO INSTALL LABEL 

03C7 

96 

55 


PASSU 

LDA 

A 

PRFLG 

GET PROCESS FLAG 

03C9 

26 

03 



BNE 


PASS12 

IF SETf PROCESS 

03CB 

BD 

OC 

44 


JSR 


FND222 

GO GET OPERATOR 

03CE 

DE 

6F 


PASS12 

LDX 


XTEMP3 

GET SOURCE PTR 

03D0 

96 

58 



LDA 

A 

ENDFLG 


03D2 

26 

04 



BNE 


PASS13 


03D4 

9C 

46 



CPX 


SRCEND 

CHECK DNE 

03D6 

26 

El 



BNE 


PASS1 

IF NOT r LOOP 

03D8 

39 



PASS13 
* 

RTS 





* 

* 

** PASTWO 


03D9 

DE 

44 

* PERFORMS ASSEMBLY PASS 
PASTWO LDX SRCBEG 

2 

POINT TO BEGIN. SOURCE 

03DB 

09 


DEX 

ADJUST 

03DC 

86 

01 

LDA A #$01 
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LOCN 

B1 

B2 

B3 






03DE 

97 

8F 



ST A 

A 

PASS 

SET PASS 2 

03E0 

DF 

4D 


PASS2 

STX 


SRCPTR 

SAVE POINTER 

03E2 

DE 

4B 



LDX 


PC 


03E4 

DF 

6D 



STX 


XTEMP2 

SAVE PC 

03E6 

DE 

4D 



LDX 


SRCPTR 

GET POINTER 

03E8 

BD 

OB 

75 

PASS2A 

JSR 


PARSE 

GO PARSE THE LINE 

03EB 

DF 

6F 



STX 


XTEMF'3 

SAVE PTR 

03EB 

96 

4F 



LDA 

A 

LABEL 

GET FIRST CHAR 

03EF 

27 

09 



BEG 


PASS2B 

IF NOT THERE, SKIP 

03F1 

BD 

09 

05 


JSR 


FNDLBL 

LOCATE LABEL 

03F4 

A6 

00 



LDA 

A 

0,X 

GET FIRST CHAR 

03F6 

84 

7F 



AND 

A 

*$7F 

RESET BIT 

03F8 

A7 

00 



STA 

A 

0,X 

PUT BACK 

03FA 

96 

55 


PASS2B 

LDA 

A 

PRFLG 

GET PROCESS FLAG 

03FC 

26 

03 



BNE 


PASS2X 

IF SET, DONT PROCESS 

03FE 

BD 

09 

IF 


JSR 


FNDOPT 

GET OPERATION 

0401 

96 

90 


PASS2X 

LDA 

A 

OPCNT 

CHECK BYTE COUNT 

0403 

27 

16 



BEG 


PASS2C 

IF 0, SKIP 

0405 

96 

5D 



LDA 

A 

P3FLG 

CHECK PASS 3 

0407 

27 

04 



BEG 


OBJGEN 

IF SO, GO GENERATE CODE 

0409 

96 

B2 



LDA 

A 

TAPE 

SEE IF TAPE ON 

040B 

27 

07 



BEG 


MEMGEN 

IF NOT, CHECK MEMORY 

040D 

BD 

14 

89 

OBJGEN 

JSR 


OBJCOD 

GO GENERATE CODE 

0410 

96 

5D 



LDA 

A 

P3FLG 

CHECK PASS3 

0412 

27 

07 



BEG 


PASS2C 

IF SO, SKIP MEMORY 

0414 

96 

B3 


MEMGEN 

LDA 

A 

MEMORY 

SEE IF MEMORY ON 

0416 

27 

03 



BEG 


PASS2C 

IF NOT, SKIP 

0418 

BD 

15 

77 


JSR 


MEMCOD 

GO PUT IN MEMORY 

04 IB 

96 

5D 


PASS2C 

LDA 

A 

P3FLG 

CHECK PASS3 

041D 

26 

03 



BNE 


SHORT 


041F 

7E 

04 

A4 


JMP 


N0ERR4 


0422 

96 

5E 


SHORT 

LDA 

A 

PRTFLG 

SEE IF PRINT 

0424 

27 

OD 



BEG 


CHK2ER 

IF NOT, SKIP 

0426 

96 

AE 



LDA 

A 

LIST 

GET LIST FLAG 

0428 

27 

09 



BEG 


CHK2ER 

SKIP IF NO LIST 

042A 

96 

90 



LDA 

A 

OPCNT 

* . | '% ’ * 

042C 

36 




PSH 

A 

• 

• . ‘ ' ‘/' IT . \ V • 

042D 

BD 

05 

Cl 


JSR 


PRTINF 

GO PRINT DATA 

0430 

32 



• 

PUL 

A 


■ > ... 

0431 

97 

90 



STA 

A 

OPCNT 

RESTORE COUNT 

0433 

86 

FF 


CHK2ER 

LDA 

A 

#*FF 


0435 

97 

56 



STA 

A 

ERRFLG 

SET FLAG 

0437 

96 

A5 


CHKERR 

LDA 

A 

ERRCNT 

GET COUNT 

0439 

27 

3A 



BEG 


NOERR 

IF Or NO ERRORS 

043B 

DE 

85 



LDX 


ERRPTR 

GET POINTER 

043D 

EE 

00 



LDX 


0,X 

GET ERR ADDRESS 

043F 

9C 

4D 



CPX 


SRCPTR 

CHECK IF HERE 

0441 

26 

32 



BNE 


NOERR 

IF NOT t NO ERROR 

0443 

96 

AE 



LDA 

A 

LIST 

GET LIST FLAG 

0445 

26 

06 



BNE 


GETERR 

IF LIST ON, SOURCE PRINTED 

0447 

BD 

05 

FF 


JSR 


PRTDAT 

PRINT DATA 

044A 

BD 

06 

42 


JSR 


PRTSRC 

GO PRINT SOURCE TOO 

044D 

DE 

85 


GETERR 

LDX 


ERRPTR 

GET ERROR PTR 

044F 

7A 

00 

A5 


DEC 


ERRCNT 

COUNT ONE DOWN 

0452 

E6 

02 



LDA 

B 

2,X 

GET TYPE 














PAGE 
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B2 
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0454 

27 

15 



BEO 


GETER2 

t 

0456 

D1 

81 



CMP 

B 

P2ERR1 

CHECK SAME 

0458 

26 

03 



BNE 


CHK2 

* 

045A 

7F 

00 

81 


CLR 


P2ERR1 


045D 

D1 

82 


CHK2 

CMP 

B 

P2ERR2 


045F 

26 

03 



BNE 


CHK3 


0461 

7F 

00 

82 


CLR 


P2ERR2 


0464 

D1 

83 


CHK3 

CMP 

B 

P2ERR3 


0466 

26 

03 



BNE 


GETER2 


0468 

7F 

00 

83 


CLR 


P2ERR3 


046B 

08 



GETER2 

I NX 




046C 

08 




I NX 




046D 

08 




INX 




046E 

DF 

85 



STX 


ERRPTR 

STORE NEW PTR 

0470 

BD 

06 

51 


JSR 


PRTERR 

GO INSERT ERROR MESSAGE 

0473 

20 

C2 



BRA 


CHKERR 

GO SEE IF MORE ERRORS 

0475 

CE 

00 

81 

NOERR 

LDX 


♦P2ERR1 

POINT TO STORE 

0478 

86 

03 



LDA 

A 

#3 

SET COUNT 

047A 

36 



CERR 

PSH 

A 


SAVE COUNT 

047B 

DF 

77 



STX 


GTEMP3 

SAVE PLACE 

047D 

E6 

00 



LDA 

B 

0»X 

GET ERROR 

047F 

27 

15 



BEO 


CNXT 

IF 0» GO NEXT 

0481 

96 

56 



LDA 

A 

ERRFLG 

GET FLAG 

0483 

27 

OA 



BEG 


PRT2ER 


0485 

96 

AE 



LDA 

A 

LIST 

CHECK LIST ON 

0487 

26 

06 



BNE 


PRT2ER 


0489 

BD 

05 

FF 


JSR 


PRTDAT 


048C 

BD 

06 

42 


JSR 


PRTSRC 

PRINT INFO 

048F 

DE 

77 


PRT2ER 

LDX 


GTEMP3 

GET POINTER 

0491 

E6 

00 



LDA 

B 

0»X 

GET ERROR 

0493 

BD 

06 

51 


JSR 


PRTERR 

GO PRINT MESG 

0496 

DE 

77 


CNXT 

LDX 


GTEMP3 

GET POINTER 

0498 

08 




INX 



POINT NEXT 

0499 

32 




PUL 

A 

GET COUNT 


049A 

4A 




DEC 

A 

• . 

ONE DONE 

049B 

26 

DD 



BNE 


CERR 

LOOP TILL DONE 

049D 

96 

5F 


N0ERR2 

LDA 

A 

PAGFLG 

CHECK PAGE FLAG 

049F 

26 

03 



BNE 


N0ERR4 


04A1 

BD 

11 

31 


JSR 


EJECT 


04A4 

DE 

6F 


N0ERR4 

LDX 


XTEMP3 

GET SOURCE PTR 

04A6 

96 

58 



LDA 

A 

ENDFLG 


04A8 

26 

2C 



BNE 


FIN 


04AA 

9C 

46 



CPX 


SRCEND 

CHECK IF DONE 

04AC 

27 

03 



BEG 


P2D0N 


04AE 

7E 

03 

EO 


JMP 


PASS2 


04B1 

39 



P2D0N 

* 

RTS 








** CONTRL 








* OUTPUT TAPE 

CONTROL CHARACTERS 

04B2 

C6 

04 


CONTRL 

LDA 

B 

*4 

SET 4 CHARS 

04B4 

27 

09 



BEG 


CONDON 


04B6 

A6 

00 


PCTRL 

LDA 

A 

0»X 


04B8 

BD 

03 

23 


JSR 


TAPOUT 


04BB 

08 




INX 




04BC 

5A 




DEC 

B 
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LOCN B1 B2 B3 
04BD 26 F7 
04BF 39 
04C0 00 
04C1 00 
04C2 00 
04C3 00 
04C4 00 
04C5 00 
04C6 00 
04C7 00 


04C8 C6 04 
04CA 27 09 
04CC CE F4 FF 
04CF 09 
04D0 26 FD 
04D2 5A 
04D3 26 F7 
04B5 39 


04D6 96 5D 
04DS 27 17 
•04DA BD 07 BA 
04DD BD 06 39 
04E0 CE 05 49 
04E3 96 A9 
04E5 27 03 
04E7 CE 05 4B 
04EA BD 07 AB 
04ED 96 B2 
04EF 27 14 
04F1 BD 15 18 
04F4 86 53 
04F6 BD 03 23 
04F9 86 39 
04FB BD 03 23 
04FE 8D C8 
0500 CE 04 C4 
0503 8D AD 
0505 96 5D 
0507 27 2E 
0509 96 B3 
050B 27 09 
05OD BD 15 F4 
0510 DE 8B 
0512 6F 00 
0514 6F 01 
0516 96 AF 
0518 26 44 


. BNE PCTRL 

CONDON RTS 

TAPEON FCB 0,0,0,0 


TAPEOF FCB 0,0,0,0 


* 

** DELAY 

* DELAY FOR TAPE CONTROL 
DELAY LDA B *4 

BEQ DELDON 


XLOOP LDX #$F 4FF 

DECX DEX 

BNE DECX 

DEC B 

BNE XLOOP 

DELDON RTS 

* 

* 

* 

#* FIN 

* END OF ASSEMBLY CLEAN 


FIN 

LDA A 

P3FLG 


BEQ 

LSTREC 


JSR 

PCRLF 


JSR 

PRT2 


LDX 

♦NOERHD 


LDA A 

ERRORS 


BEQ 

PRTMES 


LDX 

♦ERRHD 

PRTMES 

JSR 

PDATA 

CHKTAP 

LDA A 

TAPE 


BEQ 

FIN2 

LSTREC 

JSR 

PRTREC 


LDA A 

♦ 'S 


JSR 

TAPOUT 


LDA A 

*'9 


JSR 

TAPOUT 


BSR 

DELAY 


LDX 

♦TAPEOF 


BSR 

CONTRL 

FIN2 

LDA A 

P3FLG 


BEQ 

FIN6 


LDA A 

MEMORY 


BEQ 

FIN5 


JSR 

FIXCNT 


LDX 

MEMPTR 

SETO 

CLR 

0,X 


CL.R 

1,X 

FIN5 

LDA A 

SYMBOL 


BNE 

SYMGEN 


SET COUNTER 


UP 

CHECK PASS3 

IF SOr PUNCH LAST RECORD 
CR LF 


SEE IF ANY ERRORS 

IF NOTr GOT PTR 

MESSAGE 

PRINT IT 

SEE IF TAPE ON 

IF NOT, SKIP 

GO PUNCH LAST 


PUNCH S9 

DELAY BEFORE TURN OFF 


CHECK PASS3 
IF SOr SKIP 
CHECK MEMORY OPTION 
IF OFF , SKIP 
GO SET BYTE COUNT 
GET POINTER 


CHECK SYMBOL ON 
IF GO, GO PRINT 



( 


L 
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LOCN 

B1 

B2 

B3 






051A 

96 

AE 



LDA 

A 

LIST 

SEE IF LIST ON 

051C 

27 

19 



BEO 


FIN6 

IF NOT i SKIP 

051E 

BD 

07 

BA 

FIN3 

JSR 


PCRLF 

CR LF 

0521 

96 

B1 



LDA 

A 

PAGER 

SEE IF PAGE ON 

0523 

27 

OA 



BEG 


FIN4 

IF NOT t SKIP 

0525 

96 

B1 



LDA 

A 

PAGER 

SEE IF PAGE ON 

0527 

27 

06 



BEG 


FIN4 

IF NOT t SKIP 

0529 

CE 

11 

D1 


LDX 


♦EJSTR 


052C 

7E 

07 

AB 


JMP 


PDATA 

PAGE EJECT 

052F 

C6 

04 


FIN4 

LDA 

B 

#4 


0531 

BD 

07 

BA 

GAPX 

JSR 


PCRLF 


0534 

5A 




DEC 

B 



0535 

26 

FA 



BNE 


GAPX 

PRINT 4 LINES 

0537 

39 



FIN6 

RTS 



DONE 

0538 

20 



SYMHD 

FCC 


' SYMBOL 

. TABLE.' 


053? 20 
053A 20 
053B 53 
053C 59 
053D 4D 
053E 42 
053F 4F 
0540 4C 
0541 20 
0542 54 
0543 41 
0544 42 
0545 4C 
0546 45 
0547 3A 
0548 04 
0549 4E 
054A 4F 
054B 20 
054C 45 
054D 52 
054E 52 
054F 4F 
0550 52 
0551 28 
0552 53 
0553 29 
0554 20 
0555 44 
0556 45 
0557 54 


FCB 

NOERHD FCC 


ERRHD 


FCC 


NO' 

ERROR(S) DETECTED' 


0559 43 
055A 54 
055B 45 
055C 44 
055D 04 


FCB 


* 

* 

** SYMGEN 
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LOCN B1 

055E 96 
0560 27 
0562 C6 
0564 E»H 
0567 CE 
056A BD 
056D BB 
0570 BE 
0572 09 
0573 BF 
0575 BB 
0578 C6 
057A BE 
057C 08 
057B A6 
057F 27 
0581 37 
0582 C6 
0584 A6 
0586 BB 
0589 08 
058A 5A 
058B 26 
058B BB 
0590 A6 
0592 BB 
0595 08 
0596 A6 
0598 BB 
059B BF 
059B BB 
OSAO 33 
05A1 9C 
05A3 27 
05A5 5A 
05A6 26 
05A8 20 
05AA 37 
05AB C6 
05AB 08 
05AE 5A 
05AF 26 
05B1 33 
05B2 BF 
05B4 9C 
05B6 26 
05B8 7E 


05BB 7F 
05BE 7E 


B2 B3 

* SORT ANB PRINT SYMBOL TABLE 


5B 


SYMGEN 

LBA 

A 

P3FLG 

CHECK PASS 3 

BC 



BEQ 


FIN3 

IF SOr BONE 

04 



LBA 

B 

#4 


OF 

B9 


JSR 


TYP11A 

GO SPACE 4 

05 

38 


LBX 


#SYMHB 


07 

AB 


JSR 


PBATA 

PRINT HEABER 

13 

FO 


JSR 


SHELL 

GO SORT 

40 



LBX 


LBLBEG 





BEX 




69 



STX 


XTEMP 

SET POINTER 

07 

BA 

LSTSYM 

JSR 


PCRLF 


04 



LBA 

B 

*4 

SET 4 LABELS 

69 


GETSYM 

LBX 


XTEMP 

GET POINTER 




INX 





00 



LBA 

A 

OrX 

29 



BEQ 


NOPRT 




PSH 

B 


06 



LBA 

B 

#6 

00 


LABOUT 

LBA 

A 

OrX 

03 

20 


JSR 


OUTCH 




INX 






BEC 

B 


F7 



BNE 


LABOUT 

-oe- 

-07- 

03 It 

JSR 


0UT2^ 

00 



LBA 

A 

OrX 

oc 

BO 


JSR 


OUTHEX 




INX 



00 



LBA 

A 

OrX 

oc 

BO 


JSR 


OUTHEX 

69 



STX 


XTEMP 

06 29 

3d 

JSR 


PR T2-3 




PUL 

B 


42 



CPX 


LBLENB 

13 



BEQ 


SYMPRT 



CONT 

BEC 

B 


B2 



BNE 


GETSYM 

CB 



BRA 


LSTSYM 



NOPRT 

PSH 

B 


07 



LBA 

B 

#7 



MOVPTR 

INX 






BEC 

B 


FC 



BNE 


MOVPTR 




PUL 

B 


69 



STX 


XTEMP 

42 



CPX 


LBLENB 

C2 



BNE 


GETSYM 

05 

IE 

SYMPRT 

JMP 


FIN3 


* 

* 

** PASTHR 

* PERFORM ASSEMBLY PASS 3 


00 

5B 

PASTHR 

CLR 

P3FL.G 

03 

B9 

* 

JMP 

PASTWO 


IF Or NO LABEL 

SET 6 CHARS 
GET CHAR 
PRINT IT 


CHECK BONE 

PRINT 2 SPACES 
GET MS ABBRESS 
PRINT IT 



GET LS VALUE 
PRINT IT 

SAVE PTR LOCATION 
PRINT ^SPACES 
GET LINE COUNT 
CHECK TABLE BONE 



SEE IF 4 YET 
IF NOT r BO AGAIN 
OTHERWISEr START NEW LINE 


ABVANCE PTR 

SAVE PTR 
CHECK BONE 


SET PASS 3 
BO PASS 2 


10 
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LOCN 

B1 

B2 

B3 










** PRTINF 








* PRINT 

ASSEMBLES BATA 


05C1 

8D 

3C 


PRTINF 

BSR 


PRTBAT 

GO PRINT ABBRf BATA 

05C3 

8D 

7B 



BSR 


PRTSRC 

PRINT SOURCE 

05C5 

CE 

02 

00 


LBX 


♦BYTSTK 


05C8 

DF 

71 



STX 


XTEMP4 

SET MULTIPLE BATA PTR 

05CA 

96 

5A 



LBA 

A 

BATFLG 

CHECK MULTIPLE 

05CC 

26 

01 



BNE 


PRTINA 

IF SET r ITS THERE 

05CE 

39 



PRTINB 

RTS 



BONE 

05CF 

96 

BO 


PRTINA 

LBA 

A 

GENER 

CHECK GENERATE FLAG 

05D1 

27 

FB 



BEG 


PRTINB 

IF CLR> NO PRINT 

05D3 

96 

90 


PRUNE 

LBA 

A 

OPCNT 

GET OPERANB COUNT 

05D5 

BE 

6B 


PRTINB 

LBX 


XTEMP2 

GET OLB PC 

05D7 

08 



PRTINC 

I NX 



BUMP 

05D8 

4A 




BEC 

A 


BO UNTIL PAST PRINTEB 

05D9 

26 

FC 



BNE 


PRTINC 


05DB 

BF 

6B 



STX 


XTEMP2 

SAVE NEW PRINTABLE PC 

05DD 

86 

01 



LBA 

A 

#1 


05DF 

97 

90 



STA 

A 

OPCNT 

SET COUNT 

05E1 

BE 

71 



LBX 


XTEMP4 

GET STACK PTR 

05E3 

9C 

87 



CPX 


BYTPTR 

CHECK FOR BATA 

05E5 

27 

E7 



BEG 


PRTINB 

IF NO BATAr EXIT 

05E7 

A6 

00 



LBA 

A 

OfX 

GET CHAR (BYTE) 

05E9 

97 

7E 



STA 

A 

OPCOBE 

PUT IN PLACE 

05EB 

08 




INX 



BUMP POINTER 

05EC 

9C 

87 



CPX 


BYTPTR 

CHECK MORE BATA 

05EE 

27 

08 



BEG 


PRTING 

IF NOf BONE 

05F0 

7C 

00 

90 


INC 


OPCNT 

SET COUNT =2 

05F3 

A6 

00 



LBA 

A 

0,X 

GET NEXT BYTE 

05F5 

97 

7F 



STA 

A 

0P1 

PUT IN PLACE 

05F7 

08 




INX 



BUMP PTR 

05F8 

BF 

71 


PRTING 

STX 


XTEMP4 

SAVE POINTER 

05FA 

BB 

05 

FF 


JSR 


PRTBAT 

GO PRINT BATA 

05FD 

20 

B4 


* 

BRA 


PRTINE 

LOOP TILL BONE 





* 

** PRTBAT 








* PRINT 

ABBRESS ANB BATA 


05FF 

BB 

07 

BA 

PRTBAT 

JSR 


PCRLF 

GO BO CR LF 

0602 

BB 

03 

IE 


JSR 


OUTS 

PRINT A SP 

0605 

96 

59 



LBA 

A 

PCFLAG 

CHECK FOR PRINT PC 

0607 

26 

08 



BNE 


PRTPC 

IF SET r DO IT 

0609 

BB 

OC 

C7 


JSR 


0UT2S 


060C 

BB 

OC 

C5 


JSR 


0UT3S 

SKIP FIELB 

060F 

20 

25 



BRA 


PRT1 


0611 

96 

6B 


PRTPC 

LBA 

A 

XTEMP2 

GET CURRENT PC 

0613 

BB 

OC 

BO 


JSR 


OUTHEX 

PRINT MS 

0616 

96 

6E 



LBA 

A 

XTEMP2+1 

GET LS 

0618 

BB 

OC 

CC 


JSR 


OUTHXS 

PRINT IT 

061B 

B6 

90 



LBA 

B 

OPCNT 

GET COUNT 

06 IB 

27 

17 



BEG 


PRT1 


061F 

96 

7E 



LBA 

A 

OPCOBE 


0621 

BB 

OC 

CC 


JSR 


OUTHXS 

PRINT OPCOBE 

0624 

5A 




BEC 

B 



0625 

27 

12 



BEG 


PRT2 

SEE IF BONE 
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LOCN 

B1 

B2 

B3 





0627 

96 

7F 



LDA A 

0P1 


0629 

BD 

OC 

CC 


JSR 

OUTHXS 

PRINT IT 

062C 

5A 




DEC B 



062D 

27 

OD 



BEG 

PRT3 


062F 

96 

80 



LDA A 

0P2 


0631 

BD 

OC 

CC 


JSR 

OUTHXS 


0634 

20 

09 



BRA 

PRT4 


0636 

BD 

OC 

C5 

F'RT 1 

JSR 

0UT3S 


0639 

BD 

OC 

C5 

PRT2 

JSR 

0UT3S 


063C 

BD 

OC 

C5 

PRT3 

JSR 

0UT3S 


063F 

7E 

03 

IE 

PRT4 

JMP 

OUTS 






** PRTSRC 







* PRINT 

A LINE 

OF SOURCE 


0642 

DE 

8D 


PRTSRC 

LDX 

LINPTR 

GET POINTER 

0644 

A6 

00 


PRTS1 

LDA A 

0 r X 

GET A CHAR- 

0646 

08 




INX 


POINT NEXT 

0647 

81 

OD 



CMP A 

#$D 

CHECK FOR CR 

0649 

27 

05 



BEG 

PRTS2 

IF S0> DONE 

064B 

BD 

03 

20 


JSR 

OUTCH 

PRINT IT 

064E 

20 

F4 



BRA 

PRTSl 

DO AGAIN 

0650 

39 



PRTS2 

* 

RTS 


DONE 





** PRTERR 







* INSERT ERROR 

MESSAGE INTO LISTING 

0651 

CE 

06 

81 

PRTERR 

LDX 

♦MSGHD 


0654 

BD 

07 

B2 


JSR 

PSTR 

PRINT HEADING 

0657 

7F 

00 

56 


CLR 

ERRFL.G 

SET PRINTED FLAG 

065A 

CE 

06 

69 


LDX 

♦MSGTBL 

POINT TO TABLE 

065D 

58 




ASL B 


MULT ERROR ♦ * 2 

065E 

27 

04 



BEG 

GOTMSG 

CHECK IF GOT 

0660 

08 



PTNXT 

INX 


POINT NEXT ADDRESS 

0661 

5A 




DEC B 


COUNT OFF 

0662 

26 

FC 



BNE 

PTNXT 

CYCLE 

0664 

EE 

00 


GOTMSG 

LDX 

OfX 

GET TEXT POINTER 

0666 

7E 

07 

AB 

* 

JMP 

PDATA 

GO PRINT MESG 

0669 

06 

87 


T 

MSGTBL 

FDD 

MESGO 


066B 

06 

9D 



FDB 

MESG1 


066D 

06 

AE 


:. •; v 

FDB 

MESG2 


066F 

06 

C6 



FDB 

MESG3 


0671 

06 

DE 



FDB 

MESG4 


0673 

06 

F9 



FDB 

MESG5 


0675 

07 

16 



FDB 

MESG6 


0677 

07 

2F 



FDB 

MESG7 


0679 

07 

3C 



FDB 

MESG8 


067B 

07 

53 



FDB 

MESG9 


067B 

07 

78 



FDB 

MESG10 


067F 

07 

8E 


* 

FDB 

MESG11 


0681 

2A 



T 

MSGHD 

FCC 



0682 

2A 







0683 

20 







0684 

20 







0685 

20 



. * 
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LOCN B1 B2 B3 
0686 04 

0687 53 
0688 59 
0689 4D 
068A 42 
068B 4F 
068C 4C 
068B 20 
068E 54 
068F 41 
0690 42 
0691 4C 
0692 45 
0693 20 
0694 4F 
0695 56 
0696 45 
0697 52 
0698 46 
0699 4C 
069A 4F 
069B 57 
069C 04 
069D 55 
069E 4E 
069F 44 
06A0 45 
06A1 46 
06A2 49 
06A3 4E 
06A4 45 
06A5 44 
06A6 20 
06A7 53 
06A8 59 
06A9 4D 
06AA 42 
06AB 4F 
06AC 4C 
06AD 04 
06AE 4D 
06AF 55 
06B0 4C 
06B1 54 
06B2 49 
06B3 50 
06B4 4C 
06B5 59 
06B6 20 
06B7 44 
06B8 45 
06B9 46 
06BA 49 
06BB 4E 


FCB 

# 

MESGO FCC 


FCB 

MESG1 FCC 


FCB 

MESG2 FCC 


4 

Symbol table overflow' 


4 

'UNDEFINED SYMBOL' 


4 

'MULTIPLY DEFINED SYMBOL' 
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LOCN B1 B2 B3 
06BC 45 
06BB 44 
06BE 20 
06BF 53 
06C0 59 
06C1 4D 
06C2 42 
06C3 4F 
06C4 4C 
06C5 04 
06C6 55 
06C7 4E 
06C8 52 
06C9 45 
06CA 43 
06CB 4F 
06CC 47 
06CD 4E 
06CE 49 
06CF 5A 
06D0 41 
06B1 42 
06P2 4C 
06B3 45 
06B4 20 
06B5 4D 
06D6 4E 
061)7 45 
06D8 4D 
06B9 4F 
06DA 4E 
06DB 49 
06DC 43 
06DD 04 
06DE 49 
06DF 4C 
06E0 4C 
06E1 45 
06E2 47 * 

06E3 41 
06E4 4C 
06E5 20 
06E6 43 
06E7 48 
06E8 41 
06E9 52 
06EA 41 
06EB 43 
06F.C 54 
06ED 45 
06EE 52 
06EF 20 
06F0 49 
06F1 4E 
06F2 20 


FCB 

MESG3 FCC 


FCB 

MESG4 FCC 


4 

'UNRECOGNIZABLE MNEMONIC' 


4 

'ILLEGAL CHARACTER IN LABEL' 




C 



(_ 
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LOCN B1 B2 B3 
06F3 4C 
06F4 41 
06F5 42 
06F6 45 
06F7 4C 
06F8 04 
06F9 49 
06FA 4C 
06FB 4C 
06FC 45 
06FD 47 
06FE 41 
06FF 4C 
0700 20 
0701 43 
0702 48 
0703 41 
0704 52 
0705 41 
0706 43 
0707 54 
0708 45 
0709 52 
070A 20 
070B 49 
070C 4E 
070D 20 
070E 4F 
070F 50 
0710 45 
0711 52 
0712 41 
0713 4E 
0714 44 
0715 04 
0716 52 
0717 45 
0718 4C 
0719 41 
071A 54 
071B 49 
071C 56 
071 Ei 45 
071E 20 
071F 42 
0720 52 
0721 41 
0722 4E 
0723 43 
0724 48 
0725 20 
0726 54 
0727 4F 
0728 4F 
0729 20 


MESG5 


MESG6 


FCB 

FCC 


FCB 

FCC 


4 

' ILLEGAL CHARACTER IN OPERAND' 


4 

'RELATIVE BRANCH TOO LONG' 
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LOCN 

B1 B2 B3 

072A 

4C 

072B 

4F 

072C 

4E 

072D 

47 

072E 

04 

072F 

53 

0730 

59 

0731 

4E 

0732 

54 

0733 

41 

0734 

58 

0735 

20 

0736 

45 

0737 

52 

0738 

52 

0739 

4F 

073A 

52 

073B 

04 

073C 

49 

073D 

4C 

073E 

4C 

073F 

45 

0740 

47 

0741 

41 

0742 

4C 

0743 

20 

0744 

49 

0745 

4E 

0746 

44 

0747 

45 

0748 

58 

0749 

20 

074A 

56 

074B 

41 

074C 

52 

074D 

49 

074E 

41 

074F 

42 

0750 

4C 

0751 

45 

0752 

04 

0753 

49 

0754 

4C 

0755 

4C 

0756 

45 

0757 

47 

0758 

41 

0759 

4C 

075A 

20 

075B 

43 

075C 

48 

075D 

41 

075E 

52 

075F 

41 

0760 

43 


MESG7 


MESG8 



MESG9 


FCB 4 

FCC 'SYNTAX ERROR' 


FCB 4 

FCC 'ILLEGAL INDEX VARIABLE' 


rvjl5-j 


FCB 4 

FCC 'ILLEGAL CHARACTER FOR SPECIFIED BASE' 
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LOCN 

B1 B2 B3 

0761 

54 

0762 

45 

0763 

52 

0764 

20 

0765 

46 

0766 

4F 

0767 

52 

0768 

20 

076? 

53 

076A 

50 

076B 

45 

076C 

43 

076D 

4? 

076E 

46 

076F 

4? 

0770 

45 

0771 

44 

0772 

20 

0773 

42 

0774 

41 

0775 

53 

0776 

45 

0777 

04 

0778 

4? 

077? 

4C 

077A 

4C 

077B 

45 

077C 

47 

077D 

41 

077E 

4C 

077F 

20 

0780 

4F 

0781 

50 

0782 

54 

0783 

4? 

0784 

4F 

0785 

4E 

0786 

20 

0787 

53 

0788 

57 

078? 

4? 

078A 

54 

078B 

43 

078C 

48 

078D 

04 

078E 

54 

078F 

4F 

07?0 

4F 

07?1 

20 

07?2 

4D 

07?3 

41 

07?4 

4E 

07?5 

5? 

07?6 

20 

0 797 

4F 


FCB 

MESG10 FCC 


FCB 

MESG11 FCC 


4 

' ILLEGAL OPTION SWITCH' 




4 

'TOO MANY OPERANDS (DATA) 
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LOCN 

B1 

B2 

B3 






0798 

50 








0799 

45 








079A 

52 








079B 

41 








079C 

4E 








079D 

44 








079E 

53 








079F 

20 








07A0 

28 








07A1 

44 








07A2 

41 








07A3 

54 








07A4 

41 








07A5 

29 








07A6 

04 




FOB 

4 







* 









** PDATA 








* PRINT 

STRINGS 



07A7 

BD 

03 

20 

PL OOP 

JSR 

OIJTCH 

PRINT 

CHAR 

07AA 

08 




INX 


POINT 

NEXT 

07AB 

A6 

00 


PDATA 

LDA A 

OrX 

GET A 

CHAR 

07 AD 

81 

04 



CMP A 

#4 

CHECK 

FOR EOT 

07AF 

26 

F6 



BNE 

PLOOP 

IF NOT 

rPRINT IT 

07B1 

39 




RTS 


DONE 



* 

** PSTR 






* PRINT 

CR 1 1 

LF 

THEN STRING 

07B2 

DF 

65 


PSTR 

STX 


XSAVE 

SAVE X 

07B4 

8D 

04 



BSR 


PCRLF 


07B6 

DE 

65 



LDX 


XSAVE 

GET POINTER BAC K 

07B8 

20 

FI 


* 

BRA 


PDATA 

GO PRINT IT 





** PCRLF 








* PRINT 

CR AND 

LF 


07BA 

CE 

07 

CF 

PCRLF 

LDX 


♦CRLF 

POINT 

07BD 

8D 

EC 



BSR 


PDATA 

GO PRINT 

07BF 

96 

A8 



LDA 

A 

LINCNT 

GET LINE COUNT 

07C1 

4C 




INC 

A 



07C2 

97 

A8 



STA 

A 

LINCNT 

BUMP IT 

07C4 

81 

36 



CMP 

A 

♦LINES 

SEE IF TIME TO EJECT 

07C6 

22 

04 



BHI 


PCRLF2 

IF SO, GO DO IT 

07C8 

7F 

00 

5C 

PCRLF1 CLR 


EJFLG 

CLEAR FLAG 

07CB 

39 




RTS 



DONE 

07CC 

7E 

11 

31 

PCRLF2 

JMP 


EJECT 

GO PAGE EJECT 

07CF 

OD 



CRLF 

FCB 


$Dr$ArO' 

OfOrOrA 


07D0 0A 
07H1 00 
07D2 00 
07D3 00 
07D4 00 
07D5 04 

* 

** OF'SERR 

* FATAL ERROR ROUTINE 

* GENERATES 3 NOP'S 
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LOCN 

B1 

B2 

B3 





07D6 

36 



OPSERR PSH 

A 



07D7 

86 

01 


LDA 

A 

*01 


07D9 

97 

7E 


STA 

A 

OPCODE 


07DB 

97 

7F 


STA 

A 

0P1 


07BP 

97 

80 


STA 

A 

0P2 


07BF 

97 

59 


STA 

A 

PCFLAG 

MAKE SURE PC ON 

07E1 

BB 

OC 

72 

JSR 


ADDPC3 


07E4 

32 



PUL 

A 




* 

** ASMERR 






* KEEP 

TRACK I 

DF ASSEMBLY 

ERRORS 

07E5 

36 



ASMERR 

PSH 

A 



07E6 

97 

84 



STA 

A 

LSTERR 

SAVE ERROR 

07E8 

32 




PUL 

A 



07E9 

7D 

00 

56 


TST 


ERRFLG 

CHECK ERROR SUPPRESS 

07EC 

26 

33 



BNE 


ASME2 

IF ON t DONT PROCESS 

07EE 

C6 

FF 



LDA 

B 

#*FF 


07F0 

D7 

A9 



STA 

B 

ERRORS 

SET FLAG 

07F2 

7D 

00 

8F 


TST 


PASS 

CHECK PASS COUNT 

07F5 

26 

2D 



BNE 


ASME3 

IF NOT PASS1 t SKIP 

07F7 

D6 

A5 



LDA 

B 

ERRCNT 

GET COUNT 

07F9 

Cl 

55 



CMP 

B 

*85 

CHECK EXCESS 

07FB 

27 

24 



BEG 


ASME2 

IF SO* IGNORE 

07FD 

36 




PSH 

A 


SAVE ERROR * 

07FE 

96 

4D 



LDA 

A 

SRCPTR 

GET HIGH 

0800 

B6 

4E 



LDA 

B 

SRCPTR+1 

GET LOW 

0802 

BE 

85 



LDX 


ERRPTR 

GET STACK POINTER 

0804 

A7 

00 



STA 

A 

OrX 

STORE HIGH 

0806 

E7 

01 



STA 

B 

lrX 

STORE LOW 

0808 

32 




PUL 

A 


GET ERROR * 

0809 

A7 

02 



STA 

A 

2 r X 

SAVE * 

080B 

08 




INX 




080C 

08 




INX 




080D 

08 




INX 



ADVANCE ERROR PTR 

080E 

DF 

85 



STX 


ERRPTR 

SAVE IT 

0810 

96 

A5 



LDA 

A 

ERRCNT 

GET COUNT OF ERRORS 

0812 

4C 



•a- •; ’J tile 

INC 

A 


KICK 

0813 

97 

A5 



STA 

A 

ERRCNT 


0815 

81 

55 



CMP 

A 

*85 

ERROR LIMIT? 

0817 

26 

08 



BNE 


ASME2 


0819 

CE 

08 

36 


LDX 


♦TOOMAN 


081C 

8D 

94 



BSR 


PSTR 


081E 

9E 

67 



LDS 


SPSAVE 

GET PROPER RET ADR. 

0820 

39 




RTS 



DONE 

0821 

86 

FF 


ASME2 

LDA 

A 

**FF 


0823 

39 




RTS 



DONE 

0824 

D6 

81 


ASME3 

LDA 

B 

P2ERR1 

CHECK EMPTY 

0826 

26 

03 



BNE 


ASME4 


0828 

97 

81 



STA 

A 

P2ERR1 


082A 

39 




RTS 




082B 

D6 

82 


ASME4 

LDA 

B 

P2ERR2 


082D 

26 

03 



BNE 


ASME5 


082F 

97 

82 



STA 

A 

P2ERR2 


0831 

39 




RTS 




0832 

97 

83 


ASME5 

STA 

A 

P2ERR3 
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LOCN B1 B2 B3 
0834 39 
0835 39 
0836 45 
0837 52 
0838 52 
0839 4F 
083A 52 
083B 20 


RTS 

RTS 

TOOMAN FCC 


DONE 

'ERROR LIMIT EXCEEDED' 


083C 4C 
083D 49 
083E 4D 
083F 49 
0840 54 
0841 20 
0842 45 
0843 58 
0844 43 
0845 45 
0846 45 
0847 44 
0848 45 
0849 44 

084A 04 FOB 4 

* 

** RANDOM 

* RANDOM NUMBER GENERATOR USED FOR 

* HASHING FUNCTION 


084B 

37 



RANDOM 

PSH B 


SAVE B 

084C 

36 




PSH A 


AND A 

084D 

C6 

18 



LDA B 

*24 

SET FOR 24 CYCLES 

084F 

96 

91 


LOOP 

LDA A 

RNDM 

GET FIRST BYTE 

0851 

48 




ASL A 



0852 

48 




ASL A 



0853 

48 




ASL A 



0854 

98 

91 



EOR A 

RNDM 

XOR BIT 28 WITH 31 

0856 

48 




ASL A 



0857 

48 




ASL A 


GET RESULT IN CARRY 

0858 

79 

00 

93 


ROL 

RNDM+2 

A * • 'c S-A 1 

085B 

79 

00 

92 


ROL 

RNDM+1 


085E 

79 

00 

91 


ROL 

RNDM 

SHIFT ALL LEFT WITH C 

0861 

5A 




DEC B 


COUNT OFF 

0862 

26 

EB 



BNE 

LOOP 

LOOP UNTIL DONE 

0864 

32 




PUL A 



0865 

33 




PUL B 



0866 

39 




RTS 


itu J . ■ • i 


* 

** HASH 

* HASH A SYMBOL TO A TABLE ADDRESS 

GET START OF LABEL 
SET HASH COUNTER TO 0 
GET FIRST CHAR 


0867 

CE 

00 

4F HASH 

LDX 


♦LABEL 

086A 

7F 

00 

A4 

CLR 


HASHCT 

086D 

A6 

00 


LDA 

A 

0,X 

086F 

AB 

05 


ADD 

A 

5rX 

0871 

97 

93 


STA 

A 

RNDM+2 

0873 

A6 

01 


LDA 

A 

lfX 

0875 

A9 

04 


ADC 

A 

A,X 


FOLD THE LABEL 



( 


L 
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LOCN 

B1 

B2 

B3 






0877 

97 

92 



STA 

A 

RNDM+1 


0879 

A6 

02 



LDA 

A 

2*X 


087B 

A9 

03 



ADC 

A 

3 r X 


087D 

97 

91 



STA 

A 

RNDM 

AND PUT IN RANDOM GEN 

087F 

7C 

00 

A4 

REHASH 

INC 


HASHCT 

KICK COUNTER 

0882 

BD 

08 

4B 

MIX2 

JSR 


RANDOM 

MIX EM UP 

0885 

96 

93 



LDA 

A 

RNDM+2 

GET RESULT 

0887 

84 

F8 



AND 

A 

#*F8 

FIX FOR 8 BYTES 

0889 

D6 

92 



LDA 

B 

RNDM+1 


088B 

C4 

IF 



AND 

B 

#*1F 

LIMIT TO 8K 

088D 

9B 

41 



ADD 

A 

LBLBEG+1 

ADD ON BEGINNING 

088F 

D9 

40 



ADC 

B 

LBLBEG 

ADDRESS OF TABLE 

0891 

97 

6A 



STA 

A 

XTEMP+1 


0893 

D7 

69 



STA 

B 

XTEMP 

SET EFFECTIVE ADDRESS 

0895 

D1 

42 



CMP 

B 

LBLEND 


0897 

22 

E9 



BHI 


MIX2 


0899 

25 

04 



BCS 


MIX3 


089B 

91 

43 



CMP 

A 

LBLEND+1 


089D 

22 

E3 



BHI 


MIX2 

SEE IF IN RANGE 

089F 

BE 

69 


MIX3 

LDX 


XTEMP 

GET THE ADDRESS 

08A1 

39 




RTS 



DONE 


* 

** PUTLBL 






* ENTER 

LABEL 

IN SYMBOL 

TABLE 

08A2 

8D 

C3 


PUTLBL 

BSR 


HASH 

GO HASH IT 

08A4 

A6 

00 


CHKFRE 

LDA 

A 

0>X 

GET SYMBOL ENTRY 

08A6 

27 

13 



BEQ 


PUTIT 

IF FREE f TAKE IT 

08A8 

BD 

08 

DE 


JSR 


CHKLBL 

GO SEE IF SAME 

08AB 

27 

OB 



BEQ 


HERROR 

IF SO* MULTIPLE OCCURENCE 

08AD 

BD 

08 

7F 


JSR 


REHASH 

GO REHASH ON COLLISION 

08B0 

96 

A4 


l*\v \ • 

LDA 

A 

HASHCT 

GET COUNTER 

08B2 

81 

28 



CMP 

A 

*40 

IF 40 COLLISIONS* FULL 

08B4 

26 

EE 



BNE 


CHKFRE 

GO SEE IF FREE 

08B6 

86 

00 



LDA 

A 

*0 

SET ERROR 0 

08B8 

7E 

07 

E5 

HERROR 

JMP 


ASMERR 

GO REPORT ERROR- 

08BB 

96 

4F 


PUTIT 

LDA 

A 

LABEL 

GET CHAR 

08BD 

A7 

00 



STA 

A 

OrX 

PUT IN TABLE 

08BF 

96 

50 



LDA 

A 

LABEL+1 


08C1 

A7 

01 



STA 

A 

1 r X 

•: -V'n'JH ■ ■* * 

08C3 

96 

51 



LDA 

A 

LABEL+2 


08C5 

A7 

02 



STA 

A 

2*X 


08C7 

96 

52 



LDA 

A 

LABEL+3 


08C9 

A7 

03 



STA 

A 

3*X 


08CB 

96 

53 



LDA 

A 

LABEL+4 


08CD 

A7 

04 



STA 

A 

4 * X 


08CF 

96 

54 



LDA 

A 

LABEL+5 


08D1 

A7 

05 



STA 

A 

5*X 


08D3 

96 

4B 



LDA 

A 

PC 


08D5 

A7 

06 



STA 

A 

6 r X 

STORE PC (HI) 

08D7 

96 

4C 



LDA 

A 

PC+1 


08D9 

A7 

07 



STA 

A 

7* X 

STORE PC (LO) 

08DB 

DF 

75 



STX 


LTEMP 

SAVE LABEL ADDRESS 

08DD 

39 




RTS 



DONE 


* 

** CHKLBL 
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LOCN 

B1 

B2 B3 









* SEE 

IF LABELS MATCH 


08DE 

86 

02 

CHKLBL 

LDA 

A 

#2 

SET ERROR 

08E0 

E6 

00 


LDA 

B 

0,X 


08E2 

D4 

60 


AND 

B 

LBLMSK 


08E4 

Di 

4F 


CMP 

B 

LABEL 


08E6 

26 

1C 


BNE 


CKDONE 

IF NO, WERE OK 

08E8 

E*6 

50 


LDA 

B 

LABEL+1 


08EA 

El 

01 


CMP 

B 

1 ,X 


08EC 

26 

16 


BNE 


CKDONE 


08EE 

D6 

51 


LDA 

B 

l.ABEL+2 


08F0 

El 

02 


CMP 

B 

2 ,X 


08F2 

26 

10 


BNE 


CKDONE 


08F4 

P6 

52 


LDA 

B 

LABEL+3 


08F6 

El 

03 


CMP 

B 

3,X 


08F8 

26 

OA 


BNE 


CKDONE 


08FA 

D6 

53 


LDA 

B 

LABEL+4 


08FC 

El 

04 


CMP 

B 

4, X 


08FE 

26 

04 


BNE 


CKDONE 


0900 

1.16 

54 


LDA 

B 

LABEL+5 


0902 

El 

05 


CMP 

B 

5fX 


0904 

39 


CKDONE 

RTS 



DONE 


* 

** FNDLBL 






* FIND 

A LABEL 

IN SYMBOL TABLE 

0905 

BD 

08 

67 

FNDLBL 

JSR 

HASH 

GO HASH IT UP 

0908 

A6 

00 


FND10 

LDA A 

0,X 

GET ENTRY 

090A 

27 

OE 



BEG 

FERROR 

IF EMPTY, NO FIND 

090C 

BD 

08 

DE 


JSR 

CHKLBL 

GO SEE IF MATCH 

090F 

27 

OC 



BEG 

GOTLBL 

IF SO, WE GOT IT 

0911 

BI) 

08 

7F 


JSR 

REHASH 

GO MIX EM UP AGAIN 

0914 

96 

A4 



LDA A 

HASHCT 

GET COUNTER 

0916 

81 

28 



CMP A 

#40 

IF DO 40 TIMES, NO GOOD 

0918 

26 

EE 



BNE 

FND10 

RECYCLE 

091A 

86 

FF 


FERROR 

LDA A 

**FF 

SET ERROR 

091C 

39 




RTS 



09 ID 

4F 



GOTLBL 

CLR A 

SET FLAG 

091E 

39 



* 

RTS 







** FNDOPT 







* FIND 

OPERATOR (TYPE) 

AND EXECUTE 

091F 

4F 



FNDOPT 

CLR A 



0920 

97 

5A 



STA A 

DATFLG 


0922 

97 

57 



STA A 

MATFLG 


0924 

97 

5B 



STA A 

FCCFLG 


0926 

97 

5C 



STA A 

EJFLG 

CLEAR FLAGS 

0928 

DE 

96 



LDX 

OPNPTR 

GET POINTER 

092A 

DF 

6B 



STX 

XTEMP1 

SET UP 

092C 

DE 

94 



LDX 

OPTPTR 

GET POINTER 

092E 

A6 

02 



LDA A 

2,X 

GET CHAR 

0930 

97 

7D 



STA A 

TEMP 

SAVE 3RD CHAR 

0932 

E6 

01 



LDA B 

1 , X 

GET 2ND CHAR 

0934 

A6 

00 



LDA A 

0,X 

GET 1ST CHAR 

0936 

CE 

09 

6B 


LDX 

♦OPTABL 

POINT TO TABLE 

0939 

A1 

00 


CHK1 

CMP A 

0,X 

CHECK FOR MATCH 

093B 

27 

15 



BEG 

MATCH1 

IF SO, GO SEE NEXT 
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LOCN 

B1 

B2 

B3 





093D 

7D 

00 

57 


TST • 

MATFLG 

CHECK FLAG 

0940 

26 

OB 



BNE 

OPTERR 

IF SETr NO FIND 

0942 

08 



NOMATL 

INX 



0943 

08 




INX 



0944 

08 




INX 



0945 

08 




INX 



0946 

08 




INX 



0947 

08 




INX 



0948 

SC 

OB 

75 


CPX 

♦OPTEND+6 CHECK END TABLE 

094B 

26 

EC 



BNE 

CHK1 

IF NOT, CHECK NEXT 

094D 

86 

03 


OPTERR 

LDA A 

*3 

SET ERROR NO. 

094F 

7E 

07 

D6 


JMP 

OPSERR 

GO REPORT 

0952 

97 

57 


MATCH1 

STA A 

MATFLG 

SET FLAG 

0954 

El 

01 



CMP B 

1»X 

CHECK 2ND MATCH 

0956 

26 

EA 



BNE 

NOMATL 

IF NOT r RESTART 

0958 

36 




PSH A 


SAVE CHAR 

0959 

96 

7D 



LDA A 

TEMP 

GET 3RD 

095B 

A1 

02 



CMP A 

2tX 

CHECK MATCH 

095D 

27 

03 



BEG 

BINGO 

IF SO, GOT IT 

095F 

32 




PUL A 


GET 1ST AGAIN 

0960 

20 

EO 



BRA 

NOMATL 


0962 

32 



BINGO 

PUL A 


FIX STACK 

0963 

A6 

03 



LDA A 

3,X 

GET OPCODE BASE 

0965 

97 

7E 



STA A 

OPCODE 

SAVE 

0967 

EE 

04 



LDX 

4 r X 

GET TYPE ADDRESS 

0969 

6E 

00 



JMP 

OtX 

GO SERVICE TYPE 





* THIS 

IS THE 

MNEMONIC 

RECOGNITION AND 





* BASE 

OPCODE 

TABLE 


096B 

41 



OPTABL 

FCC 

'ABA ' 


096C 

42 







096D 

41 







096E 

IB 




FCB 

$1B 


096F 

OD 

03 



FDB 

TYPE1 

£ ’■ v . : ' - 

0971 

41 




FCC 

'ADC' 


0972 

44 







0973 

43 







0974 

89 




FCB 

$89 


0975 

OD 

51 



FDB 

TYPE5 


0977 

41 




FCC 

'ADD' 


0978 

44 







0979 

44 







097A 

8B 




FCB 

$8B 


097B 

OD 

51 



FDB 

TYPE5 


097D 

41 




FCC 

'AND' 


097E 

4E 







097F 

44 







0980 

84 




FCB 

$84 


0981 

OD 

51 



FDB 

TYPES 


0983 

41 




FCC 

'ASL' 


0984 

53 







0985 

4C 







0986 

48 




FCB 

$48 


0987 

OD 

7B 



FDB 

TYPE6 


0989 

41 




FCC 

'ASR' 
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LOCN 

B1 

B2 B3 



098A 

53 




098B 

52 




098C 

47 


FCB 

$47 

098D 

OD 

7B 

FDD 

TYPE6 

098F 

42 


FCC 

' BCC' 

0990 

43 




0991 

43 




0992 

24 


FCB 

$24 

0993 

OD 

06 

FDB 

TYPE 2 

0995 

42 


FCC 

' DCS' 

0996 

43 




0997 

53 




0998 

25 


FCB 

$25 

0999 

OD 

06 

FDB 

TYPE2 

099B 

42 


FCC 

'BEG' 

099C 

45 




099D 

51 




099E 

27 


FCB 

$27 

099F 

OD 

06 

FDB 

TYPE2 

09A1 

42 


FCC 

' BGE' 

09A2 

47 




09A3 

45 




09A4 

2C 


FCB 

$2C 

09A5 

OD 

06 

FDB 

TYPE2 

09A7 

42 


FCC 

'BGT' 

09A8 

47 




09A9 

54 




09AA 

2E 


FCB 

$2E 

09 A B 

OD 

06 

FDB 

TYPE2 

09AB 

42 


FCC 

'BHI' 

09AE 

48 




09AF 

49 




09B0 

22 


FCB 

$22 

09B1 

OD 

06 

FDB 

TYPE2 

09B3 

42 


FCC 

'BHS' 

09B4 

48 




09B5 

53 




09B6 

24 


FCB 

$24 

09B7 

OD 

06 

FDB 

TYPE2 

09B9 

42 


FCC 

'Bit' 

09BA 

49 




09BB 

54 




09BC 

85 


FCB 

$85 

09BD 

OD 

51 

FDB 

TYPES 

09BF 

42 


FCC 

'BLE' 

09C0 

4C 




09C1 

45 




09C2 

2F 


FCB 

$2F 

09C3 

OD 

06 

FDD 

TYPE2 

09C5 

42 


FCC 

'BLO' 

09C6 

4C 




09C7 

4F 




09C8 

25 


FCB 

$25 

09C9 

OD 

06 

FDB 

TYPE2 

09CB 

42 


FCC 

'BL.S' 





C 
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LOCN 

B1 

B2 B3 



09CC 

4C 




09CD 

53 




09CE 

23 


FCB 

*23 

09CF 

OD 

06 

FDB 

TYPE2 

09D1 

42 


FCC 

'BLT' 

09H2 

4C 




09D3 

54 




09D4 

2D 


FCB 

*2D 

09D5 

OD 

06 

FDB 

TYPE2 

09D7 

42 


FCC 

'BMI' 

09D8 

4D 




09D9 

49 




09DA 

2B 


FCB 

*2B 

09DB 

OD 

06 

FDB 

TYPE2 

09DD 

42 


FCC 

'BNE' 

09DE 

4E 




09DF 

45 




09E0 

26 


FCB 

*26 

09E1 

OD 

06 

FDB 

TYPE2 

09E3 

42 


FCC 

'BPL' 

09E4 

50 




09E5 

4C 




09E6 

2A 


FCB 

*2A 

09E7 

OD 

06 

FDB 

TYPE2 

09E9 

42 


FCC 

'BRA' 

09EA 

52 




09EB 

41 




09EC 

20 


FCB 

*20 

09ED 

OD 

06 

FDB 

TYPE2 

09EF 

42 


FCC 

'BSR' 

09F0 

53 




09F1 

52 




09F2 

8D 


FCB 

*8D 

09F3 

OD 

06 

FDB 

TYPE2 

09F5 

42 


FCC 

'BVC' 

09F6 

56 




09F7 

43 




09F8 

28 


FCB 

*28 

09F9 

OD 

06 

FDB 

TYPE2 

09FB 

42 


FCC 

'BVS' 

09FC 

56 




09FD 

53 




09FE 

29 


FCB 

*29 

09FF 

OD 

06 

FDB 

TYPE2 

0A01 

43 


FCC 

'CBA' 

0A02 

42 




0A03 

41 




0A04 

11 


FCB 

*11 

0A05 

OD 

03 

FDB 

TYPE1 

0A07 

43 


FCC 

'CLC' 

0A08 

4C 




0A09 

43 




OAOA 

OC 


FCB 

*0C 

OAOB 

OD 

03 

FDB 

TYPE1 

OAOD 

43 


FCC 

'CLI' 
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LOCN 

B1 

B2 B3 



OAOE 

4C 




OAOF 

49 




0A10 

OE 


FCB 

$0E 

0A11 

on 

03 

FDB 

TYF'El 

0A13 

43 


FCC 

'CLR' 

0A14 

4C 




0A15 

52 




0A16 

4F 


FCB 

$4F 

0A17 

on 

7B 

FDB 

TYPE6 

0A19 

43 


FCC 

'CLV' 

0A1A 

4C 




0A1B 

56 




0A1C 

OA 


FCB 

$0A 

0A1D 

on 

03 

FDB 

TYPE1 

0A1F 

43 


FCC 

/ CMP / 

0A20 

4B 




0A21 

50 




0A22 

81 


FCB 

$81 

0A23 

on 

51 

FDB 

TYPE5 

0A25 

43 


FCC 

'COM' 

0A26 

4F 




0A27 

4B 




0A28 

43 


FCB 

$43 

0A29 

on 

7B 

FDB 

TYPE6 

0A2B 

43 


FCC 

'CPX' 

0A2C 

50 




0A2D 

58 




0A2E 

8C 


FCB 

$8C 

0A2F 

OD 

51 

FDB 

TYPES 

0A31 

44 


FCC 

'DAA' 

0A32 

41 




0A33 

41 




0A34 

19 


FCB 

$19 

0A35 

OD 

03 

FDB 

TYPE1 

0A37 

44 


FCC 

'DEC' 

0A38 

45 




0A39 

43 




0A3A 

4A 


FCB 

$4A 

0A3B 

OD 

7B 

FDB 

TYPE6 

0A3D 

44 


FCC 

'DES' 

0A3E 

45 




0A3F 

53 




0A40 

34 


FCB 

$34 

0A41 

OD 

03 

FDB 

TYPE1 

0A43 

44 


FCC 

'DEX' 

0A44 

45 




0A45 

58 




0A46 

09 


FCB 

$09 

0A47 

OD 

03 

FDB 

TYPE1 

0A49 

45 


FCC 

'END' 

0A4A 

4E 




0A4B 

44 




0A4C 

00 


FCB 

00 

0A4D 

10 

DD 

FDB 

TYPE16 

0A4F 

45 


FCC 

'EOR' 
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LOCN 

B1 

B2 B3 



0A50 

4F 




0A51 

52 




0A52 

88 


FCB 

$88 

0A53 

OD 

51 

FDB 

TYPES 

0A55 

45 


FCC 

'EGU' 

0A56 

51 




0A57 

55 




0A58 

00 


FCB 

0 

0A59 

10 

BO 

FDB 

TYPE15 

0A5B 

46 


FCC 

'FCB' 

0A5C 

43 




0A5D 

42 




0A5E 

00 


FCB 

0 

0A5F 

OF 

42 

FDB 

TYPE9 

0A61 

46 


FCC 

'FCC' 

0A62 

43 




0A63 

43 




0A64 

00 


FCB 

0 

0A65 

OE 

87 

FDB 

TYPES 

0A67 

46 


FCC 

'FDB' 

0A68 

44 




0A69 

42 




0A6A 

00 


FCB 

0 

0A6B 

OF 

7E 

FDB 

TYPE10 

0A6D 

49 


FCC 

'INC' 

0A6E 

4E 




0A6F 

43 




0A70 

4C 


FCB 

$4C 

0A71 

OD 

7B 

FDB 

TYPE6 

0A73 

49 


FCC 

'INS' 

0A74 

4E 




0A75 

53 




0A76 

31 


FCB 

$31 

0A77 

OD 

03 

FDB 

TYPE1 

0A79 

49 


FCC 

' INX' 

0A7A 

4E 




0A7B 

58 




0A7C 

08 


FCB 

$08 

0A7D 

OD 

03 

FDB 

TYPE1 

0A7F 

4A 


FCC 

' JMP' 

0A80 

4D 




0A81 

50 




0A82 

6E 


FCB 

$6E 

0A83 

OD 

35 

FDB 

TYPE3 

0A85 

4A 


FCC 

' JSR' 

0A86 

53 




0A87 

52 




0A88 

AD 


FCB 

$AD 

0A89 

OD 

35 

FDB 

TYPE3 

0A8B 

4C 


FCC 

'LDA' 

0A8C 

44 




0A8D 

41 




0A8E 

86 


FCB 

$86 

0A8F 

OD 

51 

FDB 

types 

0A91 

4C 


FCC 

'LDS' 
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LOCN 

B1 

B2 B3 



0A92 

44 




0A93 

53 




0A94 

8E 


FCB 

$BE 

0A95 

on 

51 

FDB 

TYPES 

0A97 

4C 


FCC 

'LDX' 

0A98 

44 

• 



0A99 

58 




0A9A 

CE 


FCB 

$CE 

0A9B 

OD 

51 

FDB 

TYPE5 

0A9D 

4C 


FCC 

'LSR' 

0A9E 

53 




0A9F 

52 




OAAO 

44 


FCB 

$44 

0AA1 

OD 

7B 

FDB 

TYPE6 

0AA3 

4D 


FCC 

'MON' 

0AA4 

4F 




0AA5 

4E 




0AA6 

00 


FCB 

0 

0AA7 

10 

DD 

FDB 

TYPE16 

0AA9 

4E 


FCC 

'NAM' 

OAAA 

41 




OAAB 

4D 




OAAC 

00 


FCB 

0 

OAAD 

10 

E9 

FDB 

TYPE17 

OAAF 

4E 


FCC 

'NEG' 

OABO 

45 




0AB1 

47 




0AB2 

40 


FCB 

$40 

0AB3 

OD 

7B 

FDB 

TYPE6 

0AB5 

4E 


FCC 

'NOP' 

0AB6 

4F 




0AB7 

50 




0AB8 

01 


FCB 

01 

0AB9 

OD 

03 

FDB 

TYPE1 

OABB 

4F 


FCC 

'OPT' 

OABC 

50 




OABD 

54 




OABE 

00 


FCB 

0 

OABF 

OF 

ED 

FDB 

TYPE12 

0AC1 

4F 


FCC 

'ORA' 

0AC2 

52 




0AC3 

41 




0AC4 

8A 


FCB 

$8A 

0AC5 

OD 

51 

FDB 

TYPES 

0AC7 

4F 


FCC 

'ORG' 

0AC8 

52 




0AC9 

47 




OACA 

00 


FCB 

0 

OACB 

10 

A2 

FDB 

TYPE14 

OACD 

50 


FCC 

'PAG' 

OACE 

41 




OACF 

47 




OADO 

00 


FCB 

0 

0AD1 

10 

89 

FDB 

TYPE13 

0AD3 

50 


FCC 

'PSH' 
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LOCN B1 B2 B3 
0AD4 53 
0AD5 48 


0AD6 36 

FCB 

$36 

0AD7 OB 88 

FDB 

TYPE7 

0AD9 50 

FCC 

'PUL' 

OABA 55 



OABB 4C 



OADC 32 

FCB 

$32 

OADD OD 88 

FDB 

TYPE7 

OADF 52 

FCC 

'RMB' 

OAEO 4D 



0AE1 42 



0AE2 00 

FCB 

0 

0AE3 11 IF 

FDB 

TYPE18 

0AE5 52 

FCC 

'ROL' 

0AE6 4F 



0AE7 4C 



0AE8 49 

FCB 

$49 

0AE9 OD 7B 

FDB 

TYPE6 

OAEB 52 

FCC 

'ROR' 

OAEC 4F 



OAED 52 



OAEE 46 

FCB 

$46 

OAEF OD 7B 

FDB 

TYPE6 

0AF1 52 

FCC 

'RTI' 

0AF2 54 



0AF3 49 



0AF4 3B 

FCB 

$3B 

OAFS OD 03 

FDB 

TYPE1 

0AF7 52 

FCC 

'RTS' 

0AF8 54 



0AF9 53 



OAFA 39 

FCB 

$39 

OAFB OD 03 

FDB 

TYPE1 

OAFD 53 

FCC 

'SBA' 

OAFE 42 



OAFF 41 



OBOO 10 

FCB 

$10 

0B01 OD 03 

FDB 

TYPE1 

0B03 53 

FCC 

'SBC' 

0B04 42 



0B05 43 



0B06 82 

FCB 

$82 

0B07 OD 51 

FDB 

TYPE5 

0B09 53 

FCC 

'SEC' 

OBOA 45 



OBOB 43 



OBOC OD 

FCB 

$0D 

OBOD OD 03 

FDB 

TYPE1 

OBOF 53 

FCC 

' SEI' 

0B10 45 



OBI1 49 



0B12 OF 

FCB 

$0F 

OB13 OD 03 

FDB 

TYPE1 

0B15 53 

FCC 

'SEV' 
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LOCN 

B1 

B2 B3 



0B16 

45 




0B17 

56 




0B18 

OB 


FCB 

$0B 

0B19 

on 

03 

FOB 

TYPE1 

0B1B 

53 


FCC 

' SPC' 

0B1C 

50 




OB ID 

43 




OB IE 

00 


FCB 

0 

0B1F 

OF 

BH 

FDB 

TYPE11 

0B21 

53 


FCC 

'STA' 

0B22 

54 




0B23 

41 




0B24 

97 


FCB 

$97 

0B25 

on 

54 

FOB 

TYPE4 

0B27 

53 


FCC 

'STS' 

0B28 

54 




0B29 

53 




0B2A 

9F 


FCB 

$9F 

0B2B 

on 

54 

FDB 

TYPE4 

0B2D 

53 


FCC 

' STX' 

0B2E 

54 




0B2F 

58 




0B30 

DF 


FCB 

$DF 

0B31 

on 

54 

FDB 

TYPE4 

0B33 

53 


FCC 

'SUB' 

0B34 

55 




0B35 

42 




0B36 

80 


FCB 

$80 

0B37 

on 

51 

FDB 

TYPES 

0B39 

53 


FCC 

'SWI' 

0B3A 

57 




0B3B 

49 




0B3C 

3F 


FCB 

$3F 

0B3D 

on 

03 

FDB 

TYPE1 

0B3F 

54 


FCC 

'TAB' 

0B40 

41 




0B41 

42 




0B42 

16 


FCB 

$16 

0B43 

on 

03 

FDB 

TYPEi 

0B45 

54 


FCC 

'TAP' 

0B46 

41 




0B47 

50 




0B48 

06 


FCB 

$06 

0B49 

on 

03 

FDB 

TYPEI 

0B4B 

54 


FCC 

'TBA' 

0B4C 

42 




0B4D 

41 




0B4E 

17 


FCB 

$17 

0B4F 

on 

03 

FDB 

TYPEI 

0B51 

54 


FCC 

' TPA ' 

0B52 

50 




0B53 

41 




0B54 

07 


FCB 

$07 

0B55 

on 

03 

FDB 

TYPEI 

0B57 

54 


FCC 

' TST' 
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LOCN 

B1 

B2 

B3 






0B58 

53 








0B5? 

54 








0B5A 

4D 




FCB 


$4D 


0B5B 

OD 

7B 



FDD 


TYPE6 


0B5D 

54 




FCC 


'TSX' 


0B5E 

53 








0B5F 

58 








0B60 

30 




FCB 


$30 


0B61 

OD 

03 



FDB 


TYPE1 


0B63 

54 




FCC 


'TTL' 


0B64 

54 








0B65 

4C 








0B66 

00 




FCB 


0 


0B67 

10 

E9 



FDB 


TYPE17 


0B69 

54 




FCC 


'TXS' 


0B6A 

58 








0B6B 

53 








0B6C 

35 




FCB 


$35 


0B6D 

OD 

03 



FDB 


TYPE1 


0B6F 

57 



OPTEND 

FCC 


' WAI' 


0B70 

41 








0B71 

49 








0B72 

3E 




FCB 


$3E 


0B73 

OD 

03 



FDB 


TYPE1 






** PARSE 








* PARSE 

A LINE 

OF SOURCE 

INTO POINTERS 





* AND CHECK 

SYNTAX 


0B75 

96 

48 


PARSE 

LDA 

A 

LINBYT 


0B77 

08 



PARSOA 

INX 




0B78 

4A 




DEC 

A 



0B79 

2A 

FC 



BPL 


PARSOA 


0B7B 

DF 

7B 



STX 


QTEMP 


0B7B 

DF 

8D 



STX 


LINPTR 

SAVE PRINT POSITION 

0B7F 

86 

FF 


PARSEO 

LDA 

A 

#$FF 


0B81 

97 

55 



STA 

A 

PRFLG 

SET PROCESS FLAG 

0B83 

97 

5E 



STA 

A 

PRTFLG 


0B85 

97 

5F 



STA 

A 

PAGFLG 


0B87 

BD 

OC 

65 


JSR 


CLRLAB 

GO CLEAR LABEL STORE 

0B8A 

4F 




CLR 

A 


1HL. C ‘*1 

0B8B 

97 

90 



STA 

A 

OPCNT 

SET OP COUNT =0 

0B8D 

97 

AB 



STA 

A 

MODFY 

SET FLAG 

0B8F 

97 

7D 



STA 

A 

TEMP 


0B91 

97 

59 



STA 

A 

PCFLAG 


0B93 

97 

81 



STA 

A 

P2ERR1 


0B95 

97 

82 



STA 

A 

P2ERR2 


0B97 

97 

83 



STA 

A 

P2ERR3 


0B99 

97 

56 



STA 

A 

ERRFLG 


0B9B 

DF 

94 



STX 


OPTPTR 


0B9D 

DF 

96 



STX 


OPNPTR 


0B9F 

DE 

7B 



LDX 


QTEMP 


0BA1 

A6 

00 



LDA 

A 

OtX 

GET FIRST CHAR 

0BA3 

81 

OD 



CMP 

A 

*$D 

CHECK FOR EMPTY 

0BA5 

26 

03 



BNE 


CHKCOM 


0BA7 

7E 

OC 

2D 


JMP 


PARSE3 


OBAA 

81 

2A 


CHKCOM 

CMP 

A 

#'* 

CHECK FOR COMMEMT 
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LOCN 

B1 

B2 

E( 3 






OBAC 

27 

78 



BEQ 


FINDCR 


OBAE 

81 

20 


PARSE1 

CMP 

A 

#' 

CHECK FOR NO LABEL 

OBBO 

27 

22 



BEQ 


PARSE2 


0BB2 

97 

59 



STA 

A 

PCFLAG 


0BB4 

81 

41 



CMP 

A 

♦' A 

CHECK FOR LETTER A 

0BB6 

25 

04 



BCS 


LABERR 


0BB8 

81 

5A 



CMP 

A 

*'Z 

CHECK FOR Z 

OBBA 

23 

07 



BLS 


PARS1A 


OBBC 

86 

04 


LABERR 

LDA 

A 

#4 

SET ERROR 

OBBE 

BD 

07 

E5 


JSR 


ASMERR 


0BC1 

20 

OE 



BRA 


PARSIB 

FINISH LINE 

0BC3 

BD 

OC 

8F 

PARS1A 

JSR 


COPLBL 

GO COPY THE LABEL 

0BC6 

4D 




TST 

A 



0BC7 

26 

08 



BNE 


PARSIB 


0BC9 

Cl 

OD 



CMP 

B 

#$D 

CHECK FOR CR 

OBCB 

27 

60 



BEQ 


PARSE3 


OBCD 

Cl 

20 



CMP 

B 

#' 


OBCF 

26 

EB 



BNE 


LABERR 


0BD1 

BD 

OC 

50 

PARSIB 

JSR 


FINDS2 

GO FIND A SPACE 

0BD4 

BD 

OC 

5C 

PARSE2 

JSR 


NXTBL2 

GO GET NEXT TOKEN 

0BD7 

27 

54 



BEQ 


PARSE3 

IF Zf NO OPERATION 

0BD9 

5F 




CLR 

B 



OBDA 

D7 

55 



STA 

B 

PRFLG 

SET PROCESS FLAG 

OBDC 

86 

FF 



LDA 

A 

#$FF 


OBDE 

97 

59 



STA 

A 

PCFLAG 


OBEO 

DF 

94 



STX 


OPTPTR 

SAVE OPERATION POINTER 

0BE2 

08 




INX 




0BE3 

A6 

00 



LDA 

A 

OfX 


0BE5 

81 

OD 



CMP 

A 

#$D 


0BE7 

27 

16 



BEQ 


PARS2F 


0BE9 

08 




INX 




OBEA 

A6 

00 



LDA 

A 

OfX 


OBEC 

81 

OD 



CMP 

A 

#$D 


OBEE 

27 

OF 



BEQ 


PARS2F 

% 

OBFO 

20 

12 



BRA 


PARS2A 

A :*VV’ t > .> . 

0BF2 

96 

8F 


PEVAL 

LDA 

A 

PASS 


0BF4 

4A 




DEC 

A 



0BF5 

97 

56 



STA 

A 

ERRFLG 


0BF7 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE 

OBFA 

7F 

00 

56 


CLR 


ERRFLG 


OBFD 

39 




RTS 



RETURN 

OBFE 

02 




NOP 



SPACE 

OBFF 

86 

03 


PARS2F 

LDA 

A 

*$03 


0C01 

20 

48 



BRA 


PARFF2 


0C03 

02 




NOP 



SPACE 

0C04 

8D 

55 


PARS2A 

BSR 


NXTBLK 


0C06 

27 

25 



BEQ 


PARSE3 


0C08 

81 

41 



CMP 

A 

#' A 

IS IT AN A? 

OCOA 

27 

05 



BEQ 


PARS2D 


OCOC 

81 

42 



CMP 

A 

*' B 

IS IT A B? 

OCOE 

26 

14 



BNE 


PARS2E 


0C10 

5C 



PARS2B 

INC 

B 



0C11 

5C 



PARS2D 

INC 

B 



0C12 

08 




INX 




0C13 

A6 

00 



LDA 

A 

OfX 

GET CHAR 
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B1 

B2 

B3 






0C15 

81 

OD 



CMP 

A 

♦ $D 


0C17 

27 

20 



BEQ 


PARSE4 


0C19 

81 

20 



CMP 

A 

*' 

IS IT A SPACE? 

0C1B 

27 

IF 



BEQ 


PARS2H 


ocin 

09 



PARS2J 

DEX 




0C1E 

20 

04 



BRA 


PARS2E 


0C20 





RMB 


4 


0C24 

DF 

96 


PARS2E 

STX 


OPNPTR 


0C26 

08 



FINDCR 

INX 



BUMP POINTER 

0C27 

A6 

00 



LDA 

A 

0»X 

GET CHAR 

0C29 

81 

OD 



CMP 

A 

*$D 

IS IT A CR 

0C2B 

26 

F9 



BNE 


FINDCR 

IF NOT * GET NEXT 

0C2D 

96 

7D 


PARSE3 

LDA 

A 

TEMP 


0C2F 

27 

07 



BEQ 


PARSES 


0C31 

DF 

7B 



STX 


QTEMP 


0C33 

BD 

07 

D6 

PARSE7 

JSR 


OPSERR 


0C36 

DE 

7B 


PARSE6 

LDX 


QTEMP 


0C38 

39 



PARSES 

RTS 




0C39 

D7 

AB 


PARSE4 

STA 

B 

MODFY 


0C3B 

39 




RTS 



DONE 

0C3C 

D7 

AB 


PARS2H 

STA 

B 

MODFY 

SAVE 

0C3E 

8D 

1C 



BSR 


NXTBL2 

GET NEXT 

0C40 

27 

EB 



BEQ 


PARSE3 


0C42 

20 

EO 



BRA 


PARS2E 


0C44 

DE 

4B 


FND222 

LDX 


PC 

GET PC 

0C46 

DF 

6D 



STX 


XTEMP2 

SAVE IT 

0C48 

7E 

09 

IF 


JMP 


FNDOPT 


0C4B 

97 

7D 


PARFF2 

STA 

A 

TEMP 


0C4D 

20 

D7 



BRA 


FINDCR 

GO LOCATE CR 

0C4F 

08 



FINDSP 

INX 



BUMP POINTER 

0C50 

A6 

00 

• 

FINDS2 

LDA 

A 

0»X 

GET THE CHAR 

0C52 

81 

OD 



CMP 

A 

#$D 

CHECK FOR CR 

0C54 

27 

OE 



BEQ 


NXTBL3 


0C56 

81 

20 



CMP 

A 

#' 

IS IT A SPACE? 

0C58 

26 

F5 



BNE 


FINDSP 

IF NOT t GET NEXT 

0C5A 

39 




RTS 



DONE 

0C5B 

08 



NXTBLK 

INX 



BUMP POINTER 

0C5C 

A6 

00 


NXTBL2 

LDA 

A 

0,X 

GET CHAR 

0C5E 

81 

20 



CMP 

A 

#' 

IS IT A SPACE? 

0C60 

27 

F9 



BEQ 


NXTBLK 

IF SOf GET NEXT 

0C62 

81 

OD 



CMP 

A 

#$D 

IS IT A CR 

0C64 

39 



NXTBL3 

RTS 



DONE 






* 

** 

CLRLAB 







* 

CLEAR 

LABEL 

STORAGE 


0C65 

CE 

00 

20 

CLRLAB 

LDX 

*$0020 


0C68 

DF 

4F 




STX 

LABEL 


0C6A 

CE 

20 

20 



LDX 

*$2020 


0C6D 

DF 

51 




STX 

LABEL+2 


0C6F 

DF 

S3 




STX 

LABEL+4 

SET EM 

0C71 

39 





RTS 




* 

* 






TSC 6800 ASSEMBLER SYSTEM 01.4 


RAGE 


LOCN B1 B2 B3 


* 

** ADDF’CN 

* INCREMENT PC N TIMES 


* SET OPERAND (BYTE) COUNT 


0C72 

DE 

4B 


ADDPC3 

LDX 


PC 

GET THE PC 

0C74 

08 




INX 




0C75 

08 




INX 



BUMP TWICE 

0C76 

7C 

00 

90 


INC 


OPCNT 


0C79 

7C 

00 

90 


INC 


OPCNT 

KICK OPERAND COUNT 

0C7C 

20 

OA 



BRA 


ADDF'CO 


0C7E 

DE 

4B 


ADDPC2 

LDX 


PC 

GET THE PC 

0C80 

08 




INX 



BUMP IT 

0C81 

7C 

00 

90 


INC 


OPCNT 


0C84 

20 

02 



BRA 


ADDF’CO 


0C86 

DE 

4B 


ADDPC1 

LDX 


PC 


0C88 

08 



ADDF'CO 

INX 



BUMP IT 

0CB9 

DF 

4B 



STX 


PC 

PUT BACK 

0C8B 

7C 

00 

90 


INC 


OPCNT 


0C8E 

39 



* 

RTS 



DONE 





** COPLBL 







/ 

* COPY 

LABEL 

TO LABEL 

STORE 

0C8F 

8D 

IB 


COPLBL 

BSR 


GETCHR 


0C91 

97 

4F 



STA 

A 

LABEL 


0C93 

8D 

17 



BSR 


GETCHR 


0C95 

97 

50 



STA 

A 

LABEL+1 


0C97 

8D 

13 



BSR 


GETCHR 


0C99 

97 

51 



STA 

A 

LABEL+2 


0C9B 

8D 

OF 



BSR 


GETCHR 


0C9D 

97 

52 



STA 

A 

LABEL+3 


0C9F 

8D 

OB 



BSR 


GETCHR 


0CA1 

97 

53 



STA 

A 

LABEL+4 


0CA3 

8D 

07 



BSR 


GETCHR 


0CA5 

97 

54 



STA 

A 

LABEL+5 


0CA7 

39 




RTS 



RETURN 

0CA8 

08 



CORDON 

INX 




0CA9 

39 




RTS 





* 

OCAA RMB 2 

* 

* 


** GETCHR 
* GET A CHARACTER 


OCAC 

A6 

00 

GETCHR 

LDA 

A 

OCAE 

84 

7F 


AND 

A 

OCBO 

16 



TAB 


0CB1 

81 

30 


CMP 

A 

0CB3 

25 

OC 


BCS 


0CB5 

81 

39 


CMP 

A 

0CB7 

23 

EF 


BLS 


0CB9 

81 

41 


CMP 

A 

OCBB 

25 

04 


BCS 


OCBD 

81 

5A 


CMP 

A 

OCBF 

23 

E7 


BLS 


0CC1 

31 


FIX 

INS 



OrX 

*$7F 

MASK PARITY 

#'0 

FIX 

#'9 

IF 

<0r FIX STACK 

CORDON 

IF 

<=9f OK 

*'A 



FIX 

*'Z 

IF 

<A r FIX STACK 

CORDON 

IF 

o 

•k 

N 

ii 

V 


34 















• 
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LOCN 

B1 

B2 

B3 





(% 

0CC2 

31 




INS 


FIX STACK 

V 

0CC3 

4F 




CLR A 


SET A 


0CC4 

39 




RTS 


DONE 

• 





* 









** 0UT3S 








* PRINT 

3 SPACES 


• 

0CC5 

8D 

02 


0UT3S 

BSR 

OUTSZ 



0CC7 

8D 

00 


0UT2S 

BSR 

OUTSZ 



0CC9 

7E 

03 

IE 

OUTSZ 

JMP 

OUTS 

PRINT A SPACE 






* 









** OUTHXS 








* PRINT 

2 HEX 

DIGITS AND 

A SPACE 


OCCC 

8D 

02 


OUTHXS 

BSR 

OUTHEX 

GO PRINT DIGITS 


OCCE 

20 

F9 



BRA 

OUTSZ 







* 









** OUTHEX 








* PRINT 

A AS 2 

HEX DIGITS 


OCDO 

36 



OUTHEX 

PSH A 


SAVE 


0CD1 

8D 

08 



BSR 

HEXL 

GO CONVERT 

• 

0CD3 

8D 

03 



BSR 

PRTIT 

GO PRINT IT 


0CD5 

32 




PUL A 




0CD6 

8D 

07 



BSR 

HEXR 

GO CONVERT 


0CD8 

7E 

03 

20 

PRTIT 

JMP 

OUTCH 

GO PRINT 






* 





OCDB 

44 



HEXL 

LSR A 




OCDC 

44 




LSR A 



c 

OCDD 

44 




LSR A 




OCDE 

44 




LSR A 








* 



K • -.jiD,--*- - •'Vff 


OCDF 

84 

OF 


HEXR 

AND A 

#$F 

MASK DOWN 


0CE1 

8B 

90 



ADD A 

#$90 



0CE3 

19 




DAA 




0CE4 

89 

40 



ADC A 

#$40 



0CE6 

19 




DAA 




0CE7 

39 




RTS 

■ 

TRICK CONVERT 






* 

' ' m 


f Cr 4, 






** SUB16 








* 16 BIT SUBTRACT 


W 

0CE8 

97 

7D 


SUB16 

STA A 

TEMP 

SAVE 


OCEA 

A6 

01 



LDA A 

1»X 



OCEC 

10 




SBA 




OCED 

A7 

01 



STA A 

lrX 



OCEF 

A6 

00 



LDA A 

0»X 



0CF1 

92 

7D 



SBC A 

TEMP 



0CF3 

A7 

00 



STA A 

0 tX 



0CF5 

49 




ROL A 




0CF6 

88 

01 



EOR A 

#1 


• 

0CF8 

46 




ROR A 


SET ARITH CARRY 


0CF9 

39 




RTS 



» 





* 









** ADD16 



c 





* 16 BIT ADD 




OCFA 

EB 

01 


ADD 16 

ADD B 

lrX 

ADD ON 


OCFC 

A9 

00 



ADC A 

OrX 

ADD WITH CARRY (MS) 


OCFE 

A7 

00 



STA A 

0,X 

SAVE 

• 
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LOCN 

B1 

B2 B3 



ODOO 

E7 

01 

STA B 1»X 

SAVE LS 

0D02 

39 


RTS 



* 

** TYPE1 






* HANDLES TYPE1 INSTRUCTIONS 

0D03 

7E 

OC 

86 

TYPE1 

* 

JMP 


ADDPC1 

GO FIX PC 





** TYPE 

2 








* HANDLES TYPE 

2 INSTRUCTIONS 

0D06 

96 

AB 


TYPE2 

LDA 

A 

MODFY 

CHECK MODIFY FLAG 

0D08 

26 

42 



BNE 


TYP3R 


ODOA 

BD 

OC 

7E 


JSR 


ADDPC2 


ODOD 

96 

8F 



LDA 

A 

PASS 

CHECK PASS COUNT 

ODOF 

27 

23 



BEO 


TYPE2D 

IF PASS It SKIP 

0D11 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE OPERAND 

0D14 

26 

16 



BNE 


TYPE2B 

IF EVAL ERROR t UNDEFINED 

0D16 

96 

4B 



LDA 

A 

PC 


0D18 

D6 

4C 



LDA 

B 

FC+1 

REFERENCE ADDRESS 

0D1A 

CE 

00 

7B 


LDX 


♦QTEMP 

POINT 

0D1D 

BD 

OC 

E8 


JSR 


SUB16 

GO SUBTRACT 

0D20 

4F 




CLR 

A 



0D21 

D6 

7C 



LDA 

B 

GTEMP+1 

GET LS RESULT 

0D23 

D7 

7F 



STA 

B 

0P1 

SAVE BRANCH AMOUNT 

0D25 

2A 

01 



BPL 


TYPE2A 

IF POS t SKIP 

0D27 

43 




COM 

A 


COMPLEMENT A 

0D28 

91 

7B 


TYPE2A 

CMP 

A 

QTEMP 

CHECK SIGN EXTENSION 

0D2A 

27 

08 



BEG 


TYPE2D 

IF EQUALr OK 

0D2C 

7F 

00 

7F 

TYPE2B 

CLR 


0P1 

SET BRANCH = 0 

0D2F 

86 

06 



LDA 

A 

#6 


0D31 

7E 

07 

E5 


JMP 


ASMERR 

GO REPORT ERROR 

0D34 

39 



TYPE2D 

Or 

RTS 



DONE 





** TYPE3 








* HANDLES TYPE3 INST. 


0D35 

96 

AB 


TYPE3 

LDA 

A 

MODFY 

GET MODIFIER 

0D37 

26 

13 



BNE 


TYP3R 

IF SET * ERROR 

0D39 

BD 

OD 

A3 

TYPE3A 

* 

JSR 


INDEX 

GO CHECK INDEXED 





** EXTEND 





* CHECKS FOR EXTENDED ADDRESSING (DEFAULT) 


0D3C 

96 

8F 


EXTEND 

LDA 

A 

PASS 


0D3E 

27 

09 



BEQ 


EXTEN1 

CHECK PASS=1 

0D40 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE OPERAND 

0D43 

DE 

7B 


EXTENO 

LDX 


QTEMP 

GET RESULT 

0D45 

DF 

7F 



STX 


0P1 

SET BYTES 2»3 

0D47 

8D 

13 



BSR 


FIXMOD 


0D49 

7E 

OC 

72 

EXTEN1 

JMP 


ADDPC3 

KICK PC AGAIN 

0D4C 

86 

03 


TYP3R 

LDA 

A 

*3 


0D4E 

7E 

07 

D6 

* 

JMP 


OPSERR 






** TYPES 








* HANDLE 

: TYPE5 

INST. 


0D51 

BD 

OE 

3F 

TYPES 

JSR 


IMMED 

CHECK IMMEDIATE 


* 

** TYPE4 
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ASSEMBLER SYSTEM VI .4 


LOCN B1 B2 B3 

* HANDLE TYPE4 INST. 

0D54 BD OE 04 TYPE4 JSR DIRECT GO CHECK DIRECT 

0D57 20 EO BRA TYPE3A DEFAULT EXTEND 

* 

** Fl'XMOD 
* SET UP MODIFIER 


0D59 

8D 

01 

TFIXMD 

BSR 


0D5B 

39 



RTS 


0D5C 

D6 

7E 

FIXMOD 

LDA 

B 

0D5E 

Cl 

80 


CMP 

B 

0D60 

24 

05 


BCC 


0D62 

96 

AB 

F1XM4 

LDA 

A 

0D64 

26 

36 


BNE 


OD 66 

39 



RTS 


0D67 

C4 

OF 

FIXM3 

AND 

B 

0D69 

Cl 

OB 


CMP 

B 

0D6B 

■JO 

A- 

F5 


BHI 


0D6D 

96 

AB 

FIXM5 

LDA 

A 

0D6F 

27 

2B 


BEG 


0D71 

4A 



DEC 

A 

0D72 

40 



NEG 

A 

0D73 

84 

40 


AND 

A 

0D75 

9B 

7E 


ADD 

A 

0D77 

97 

7E 


STA 

A 

0D79 

4F 



CLR 

A 

0D7A 

39 



RTS 



* 

** TYPE6 
* HANDLE TYPE6 


0D7B 

96 

AB 

TYPE6 

LDA 

A 

0D7D 

4A 



DEC 

A 

0D7E 

2A 

OD 


BPL 


0D80 

D6 

7E 


LDA 

B 

0D82 

CB 

20 


ADD 

B 

0D84 

D7 

7E 


STA 

B 

0D86 

20 

B1 


BRA 



* 

** TYPE7 
* HANDLE TYPE7 


0D88 

96 

AB 


TYPE7 

LDA 

A 

0D8A 

4A 




DEC 

A 

0D8B 

2B 

BF 

r 


BMI 


0D8D 

D6 

7E 


TYPE7A 

LDA 

B 

0D8F 

Cl 

3F 



CMP 

B 

0D91 

23 

03 



BLS 


0D93 

40 




NEG 

A 

0D94 

84 

10 



AND 

A 

0D96 

IB 



TYPE7D 

ABA 


0D97 

97 

7E 



STA 

A 

0D99 

7E 

OC 

86 


JMP 


0D9C 

31 



TYPE7C 

INS 


0D9D 

31 




INS 


0D9E 

86 

03 



LDA 

A 

ODAO 

7E 

07 

D6 


JMP 



* 


FIXMOD 


OPCODE 

*$80 

FIXM3 

MODFY 

TYPE7C 

CHECK NO MODIFIER 

CHECK ILLEGAL 

#$F 

*$B 

FIXM4 

MODFY 

TYPE7C 

CHECK NO MODIFIER 

GET MODIFIER 

*$40 

OPCODE 

OPCODE 

FIX UP OPCODE 


RESET ERROR 


INST. 

MODFY 

GET MODIFIER 

TYPE7A 

CHECK INHERENT (Ar 

OPCODE 

GET OPCODE 

*$20 

ADD ON 

OPCODE 

PUT BACK- 

TYPE3A 

GO DO TYPE3 

INSTRUCTIONS 

MODFY 

GET MODIFIER 

TYP3R 

OPCODE 

GET CODE 

#$3F 

TYPE7D 

CHECK PUSH OR PULL 

*$10 

MASK DOWN 

MODIFY 

OPCODE 

SAVE 

ADDPC1 

KICK PC 

*3 

OPSERR 
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LOCN B1 B2 B3 

** INDEX 

* CHECK FOR INDEX ADDRESSING 

* RETURN IF NOT 


0DA3 

DE 

6B 


INDEX 

LDX 


XTEMP1 

GET OPERAND PTR 

0DA5 

7F 

00 

7F 


CL.R 


0P1 


0DA8 

A6 

00 



LDA 

A 

OfX 

FIRST CHAR 

ODAA 

81 

58 



CMP 

A 

*'X 

IS IT AN X? 

ODAC 

26 

OC 



BNE 


INDEX1 

IF NOT t CHECK NEXT 

ODAE 

A6 

01 



LDA 

A 

lrX 


ODBO 

81 

20 



CMP 

A 

#' 


0DB2 

27 

'j'j 

Am Am 



BEQ 


INDEX3 


0DB4 

81 

OD 



CMP 

A 

*$D 


0DB6 

26 

02 



BNE 


INDEX1 


0DB8 

20 

1C 



BRA 


INDEX3 


ODBA 

A6 

00 


INDEX1 

LDA 

A 

0»X 

GE1 CHAR- 

ODBC 

81 

2C 



CMP 

A 

#'» 

CHECK FOR COMMA 

ODBE 

27 

20 



BEQ 


INDEX4 


ODCO 

81 

20 



CMP 

A 

#' 

CHECK FOR SPACE 

0DC2 

27 

2F 


• 

BEQ 


INDEXO 

IF SO, EXTENDED 

0DC4 

81 

OD 



CMP 

A 

*$D 


0DC6 

27 

2B 



BEQ 


INDEXO 


0DC8 

08 




INX 




0DC9 

20 

EF 



BRA 


INDEX1 


ODCB 

96 

8F 


INDEX2 

LDA 

A 

PASS 


ODCD 

27 

07 



BEQ 


INDEX3 

CHECK PASS COUNT 

ODCF 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE 

0HD2 

96 

7C 



LDA 

A 

QTEMP+1 


0DD4 

97 

7F 



STA 

A 

0P1 

SET OFFSET 

0DD6 

BD 

OD 

59 

INDEX3 

JSR 


TFIXMD 


0DD9 

26 

26 



BNE 


FIXXX2 


ODDB 

31 




INS 




ODDC 

31 




INS 



FIX STAC 

ODDD 

7E 

OC 

7E 


JMP 


ADDPC2 


ODEO 

A6 

01 


INDEX4 

LDA 

A 

1»X 

GET NEXT CHAR 

0DE2 

81 

58 


as:.; 

CMP 

A 

#'X 

IS IT X 

0DE4 

26 

14 



BNE 


INDEX5 

IF NOT, EXTENDED 

0DE6 

08 




INX 




0DE7 

A6 

01 


INDEOO 

LDA 

A , 

1»X 

GET FOLLOWING 

0DE9 

81 

20 



CMP 

A 


MUST BE SPACE 

ODEB 

27 

DE 



BEQ 


INDEX2 

IF SO, INDEXED 

ODED 

81 

OD 



CMP 

A 

*$D 


ODEF 

27 

DA 



BEQ 


INDEX2 


0DF1 

20 

07 



BRA 


INDEX5 


0DF3 

D6 

7E 


INDEXO 

LDA 

B 

OPCODE 


0DF5 

CB 

10 



ADD 

B 

#$10 


0DF7 

D7 

7E 



STA 

B 

OPCODE 


0DF9 

39 



INDEX9 

RTS 




ODFA 

86 

08 


INDEX5 

LDA 

A 

*8 


ODFC 

31 




INS 




ODFD 

31 




INS 




ODFE 

7E 

07 

D6 


JMP 


OPSERR 

GO REPORT ERROR 

0E01 

31 



FIXXX2 

INS 




0E02 

31 




INS 



FIX STACK 

0E03 

39 



* 

RTS 



DONE 



C 










♦ 
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LOCN 

B1 

B2 

B3 










** DIRECT 








* CHECK 

FOR 

DIRECT ADDRESSING 

0E04 

DE 

6B 


DIRECT 

LDX 


XTEMP1 


0E06 

86 

FF 



LDA 

A 

**FF 


0E08 

97 

56 



STA 

A 

ERRFLG 

DISABLE ERRORS 

OEOA 

97 

60 



STA 

A 

LBLMSK 

SET MASK 

OEOC 

DF 

73 



STX 


XTEMP5 

SAVE POINTER 

OEOE 

BD 

11 

D5 


JSR 


EVAL 

GO CALCULATE 

0E11 

7F 

00 

56 


CLR 


ERRFLG 

ENABLE ERRORS 

0E14 

C6 

7F 



LDA 

B 

#*7F 


0E16 

D7 

60 



STA 

B 

LBLMSK 

RESET MASK- 

0E18 

DE 

6B 



LDX 


XTEMP1 

GET END PTR 

0E1A 

E6 

00 



LDA 

B 

0,X 

GET TERMINATOR 

0E1C 

Cl 

2C 



CMP 

B 

*' r 

CHECK INDEXED 

0E1E 

36 




PSH 

A 



0E1F 

07 




TPA 




0E20 

DE 

73 



LDX 


XTEMP5 


0E22 

DF 

6B 



STX 


XTEMP1 


0E24 

33 




PUL 

B 



0E25 

06 




TAP 



RESET CCR 

0E26 

27 

10 



BEQ 


NDIR 


0E28 

5D 




TST 

B 



0E29 

26 

OD 



BNE 


NDIR 

IF NO FIND ALL 

0E2B 

D6 

7B 



LDA 

B 

GTEMP 

GET MS BYTE 

0E2D 

26 

09 



BNE 


NDIR 


0E2F 

BD 

OD 

59 


JSR 


TFIXMD 


0E32 

26 

50 



BNE 


FIXXX 


0E34 

96 

7C 



LDA 

A 

QTEMP+1 


0E36 

20 

2F 



BRA 


IMMED2 


0E38 

D6 

7E 


NDIR 

LDA 

B 

OPCODE 


0E3A 

CB 

10 



ADD 

B 

#*10 


0E3C 

D7 

7E 



STA 

B 

OPCODE 


0E3E 

39 




RTS 



PASS ON 


** IMMED 

* CHECK FOR IMMEDIATE ADDRESSING 

GET OPERAND PTR 

CHECK FOR # 

IF SO, IMMEDIATE 


0E3F 

DE 

6B 


IMMED 

LDX 


XTEMPl 

0E41 

A 6 

00 



LDA 

A 

0»X 

0E43 

81 

23 



CMP 

A 

#'* 

0E45 

27 

07 



BEO 


IMMED1 

0E47 

D6 

7E 


IMMEDO 

LDA 

B 

OPCODE 

0E49 

CB 

10 



ADD 

B 

#*10 

0E4B 

D7 

7E 



STA 

B 

OPCODE 

0E4D 

39 




RTS 



0E4E 

08 



IMMED1 

INX 



0E4F 

DF 

6B 



STX 


XTEMPl 

0E51 

D6 

7E 



LDA 

B 

OPCODE 

0E53 

C4 

OF 



AND 

B 

#*F 

0E55 

Cl 

OB 



CMP 

B 

#*B 

0E57 

22 

15 



BHI 


IMMED3 

0E59 

BD 

OD 

59 


JSR 


TFIXMD 

0E5C 

26 

26 



BNE 


FIXXX 

0E5E 

96 

8F 



LDA 

A 

PASS 

0E60 

27 

07 



BEQ 


IMMED4 

0E62 

BD 

11 

D5 


JSR 


EVAL 


MOVE PAST * 


IF PASS1, SKIP 
GO EVALUATE OPERAND 
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LOCN 

B1 

B2 

B3 







0E65 

96 

7C 



LDA 

A 

QTEMP+1 

GET 

LS RESULT 

0E67 

97 

7F 


IMMED2 

STA 

A 

0P1 

SET 

BYTE 2 

0E69 

BD 

OC 

7E 

IMMED4 

JSR 


ADDPC2 



0E6C 

20 

16 



BRA 


FIXXX 



0E6E 

96 

AB 


IMMED3 

LDA 

A 

MODFY 



0E70 

4A 




DEC 

A 




0E71 

2B 

03 



BMI 


IMMED5 



0E73 

7E 

OD 

9C 

IMMED6 

JMP 


TYPE7C 



0E76 

BD 

OC 

72 

IMMED5 

JSR 


ADDPC3 



0E79 

96 

8F 



LDA 

A 

PASS 



0E7B 

27 

07 



BEG 


FIXXX 

CHECK PASS COUNT 

OE 7D 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE 

0E80 

DE 

7B 



LDX 


QTEMP 

GET 

ARG 

0E82 

DF 

7F 



STX 


0P1 

SET 

OPERANDS 

0E84 

31 



FIXXX 

INS 





0E85 

31 




INS 





0E86 

39 




RTS 






* 

** TYPES 


0E87 

86 

FF 

* 

TYPES 

LDA 

A 

#$FF 

• 

0E89 

97 

56 


STA 

A 

ERRFLG 

SUPPRESS ERROR REPORT 

0E8B 

DE 

96 


LDX 


OPNPTR 


0E8D 

DF 

73 


STX 


XTEMP5 

SAVE START 

0E8F 

BD 

11 D5 


JSR 


EVAL 

GO EVALUATE EXPR 

0E92 

CE 

02 00 


LDX 


♦BYTSTK 


0E95 

DF 

87 


STX 


BYTPTR 

SET UP POINTER 

0E97 

96 

7C 


LDA 

A 

QTEMP+1 

GET RESULT 

0E99 

27 

56 


BEQ 


TYPE8F 

IF ZEROr DELIM TYPE 

0E9B 

DE 

6B 


LDX 


XTEMPI 


0E9D 

A6 

00 


LDA 

A 

OrX 


0E9F 

81 

2C 


CMP 

A 

#' r 


0EA1 

26 

4E 


BNE 


TYPE8F 

IF NOT COMMAr DELIM TYPE 

0EA3 

08 



INX 



MOVE PAST r 

0EA4 

96 

7C 


LDA 

A 

QTEMP+1 

GET DATA 

0EA6 

E6 

00 


LDA 

B 

OrX 

GET NEXT CHAR 

0EA8 

08 



INX 




0EA9 

Cl 

OD 


CMP 

B 

#$D 

CHECK FOR CR 

OEAB 

26 

04 


BNE 


TYPE8A 


OEAD 

97 

5B 


STA 

A 

FCCFLG 


OEAF 

C6 

20 


LDA 

B 

#$20 

GET SPACE 

0EB1 

D7 

7E 

TYPE8A 

STA 

B 

OPCODE 

STORE FIRST BYTE 

0EB3 

DF 

71 


STX 


XTEMP4 

SAVE PTR 

0EB5 

BD 

OC 86 


JSR 


ADDPC1 

KICK PC 

0EB8 

DE 

71 


LDX 


XTEMP4 

GET PTR BACK- 

OEBA 

4A 



DEC 

A 


SEE IF DONE 

OEBB 

26 

01 


BNE 


TYPE8B 


OEBD 

39 



RTS 




OEBE 

97 

5A 

TYPE8B 

STA 

A 

DATFLG 

SET FLAG 

OECO 

86 

01 


LDA 

A 

#1 


0EC2 

97 

A6 


STA 

A 

BYTCNT 

SAVE BYTE COUNT 

0EC4 

E6 

00 

TYPE8E 

LDA 

B 

OrX 

GET CHAR 

0EC6 

08 



INX 



KICK PTR 

0EC7 

DF 

71 


STX 


XTEMP4 

SAVE 

0EC9 

7D 

00 5B 


TST 


FCCFLG 

CHECK FLAG 
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LOCN 

B1 

B2 

B3 






/• 

OECC 

26 

06 



BNE 


TYPE8D 


( 

OECE 

Cl 

OD 



CMP 

B 

#$D 

CHECK CR 


OEDO 

26 

04 



BNE 


TYPE8C 


• 

0ED2 

97 

5B 



STA 

A 

FCCFLG 



0ED4 

C6 

20 


TYPE8D 

LDA 

B 

*$20 



0ED6 

DE 

87 


TYPE8C 

LDX 


BYTPTR 

GET STACK PTR 

• 

0ED8 

E7 

00 



STA 

B 

OfX 

PUT ON STACK 


OEDA 

08 




I NX 





OEDB 

DF 

87 



STX 


BYTPTR 

SAVE NEXT POSITION 


OEDD 

BD 

OC 

86 


JSR 


ADDPC1 



OEEO 

DE 

71 



LDX 


XTEMP4 

RETRIEVE PTR 

■ 

0EE2 

7A 

00 

5A 


DEC 


DATFLG 

COUNT OFF 


0EE5 

26 

DD 



BNE 


TYPE8E 

LOOP TILL DONE 


0EE7 

86 

01 



LDA 

A 

*1 



0EE9 

97 

90 



STA 

A 

OPCNT 

CORRECT OP COUNT 


OEEB 

97 

5A 



STA 

A 

DATFLG 

SET FLAG 


OEED 

7F 

00 

56 


CLR 


ERRFLG 

CLEAR ERROR SUPPRESS 


OEFO 

39 




RTS 



DONE 

• 

0EF1 

DE 

73 


% 

TYPE8F 

LDX 


XTEMP5 

GET START POINTER 


0EF3 

E6 

00 



LDA 

B 

OrX 

GET DELIMITER 


0EF5 

08 




INX 



MOVE PAST 


0EF6 

A6 

00 



LDA 

A 

OrX 

GET CHAR 


0EF8 

97 

7E 



STA 

A 

OPCODE 

PUT AWAY 


OEFA 

DF 

71 



STX 


XTEMP4 



OEFC 

BD 

OC 

86 


JSR 


ADDPC1 

KICK PC 

r 

OEFF 

DE 

71 



LDX 


XTEMP4 



0F01 

El 

01 



CMP 

B 

lfX 

CHECK END 


0F03 

26 

01 



BNE 


TYPE8G 



0F05 

39 




RTS 





0F06 

D7 

5A 


TYPE8G 

STA 

B 

DATFLG 

SET FLAG 


0F08 

86 

01 



LDA 

A 

*1 



OFOA 

97 

A6 



STA 

A 

BYTCNT 

SET COUNT 


OFOC 

08 




INX 



MOVE POINTER 


OFOD 

A6 

00 


TYPE8H 

LDA 

A 

0»X 

GET CHAR 


OFOF 

08 



i *' v ’C : tT* -yi\ " 

INX 





0F10 

DF 

71 



STX 


XTEMP4 

SAVE PTR 

a ■ 

OF 12 

DE 

87 



LDX 


BYTPTR 

GET STACK PTR 

• 

0F14 

11 




CBA 



CHECK END 


0F15 

27 

15 



BEG 


TYPE8I 

IF S0» QUIT 


OF 17 

81 

OD 



CMP 

A 

#*D 

CHECK FOR CR 


0F19 

27 

11 



BEG 


TYPE8I 

IF S0» QUIT 


0F1B 

A7 

00 



STA 

A 

0»X 

PUT ON STACK 


OF ID 

08 




INX 





0F1E 

DF 

87 



STX 


BYTPTR 

SAVE NEW POSITION 


0F20 

8C 

03 

00 


CPX 


♦BYTSTK+256 


0F23 

27 

13 



BEG 


TYPE8J 



0F25 

BD 

OC 

86 


JSR 


ADDPC1 



0F28 

DE 

71 



LDX 


XTEMP4 

GET SOURCE PTR BACK 

* 

0F2A 

20 

El 



BRA 


TYPE8H 

LOOP TILL DONE 


0F2C 

7F 

00 

56 

TYPE8I 

CLR 


ERRFLG 

RESET ERROR SUPPRESSION 

r 

0F2F 

86 

01 



LDA 

A 

*1 


L. 

0F31 

97 

90 



STA 

A 

OPCNT 

SET COUNT 


0F33 

39 



* 

RTS 



DONE 

• 
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LOCN 

B1 

B2 

B3 






OF 34 

8D 

63 


TYPE8K 

BSR 


TYP10C 


0F36 

20 

02 



BRA 


TYPE8L 


0F38 

8D 

F2 


TYPE8J 

BSR 


TYPESI 


0F3A 

7F 

00 

56 

TYPE8L 

CLR 


ERRFLG 

RESET FLAG 

0F3D 

86 

OB 



LDA 

A 

#11 

SET ERROR 

0F3F 

7E 

07 

E5 

* 

JMP 


ASMERR 






* 

** TYPE9 








* HANDLES TYPE 

9 INSTRUCTIONS 

0F42 

CE 

02 

00 

TYPE9 

LDX 


♦BYTSTK 


0F45 

DF 

87 



STX 


BYTPTR 

SET UP STACK 

0F47 

BD 

OB 

F2 


JSR 


PEVAL 

GO EVALUATE 

0F4A 

96 

7C 



LDA 

A 

QTEMP+1 

GET DATA 

0F4C 

97 

7E 



STA 

A 

OPCODE 

PUT AWAY 

0F4E 

BD 

OC 

86 

TYPE9C 

JSR 


ADDPC1 

KICK PC 

0F51 

DE 

6B 



LDX 


XTEMP1 

GET SOURCE PTR 

0F53 

A6 

00 



LDA 

A 

0»X 


0F55 

81 

OD 



CMP 

A 

#$D 

CHECK DONE 

0F57 

27 

04 



BEQ 


TYPE9D 


0F59 

81 

2C 



CMP 

A 

#'» 


0F5B 

27 

05 



BER 


TYPE9A 


0F5D 

86 

01 


TYPE9D 

LDA 

A 

*1 


0F5F 

97 

90 



STA 

A 

OPCNT 

CORRECT COUNT 

0F61 

39 




RTS 




0F62 

97 

5A 


TYPE9A 

STA 

A 

DATFLG 

SET 

0F64 

86 

01 



LDA 

A 

tl 


0F66 

97 

A6 



STA 

A 

BYTCNT 

SET COUNT 

0F68 

08 



TYPE9B 

INX 



MOVE TO NEXT ARGUMENT 

0F69 

DF 

6B 



STX 


XTEMP1 

SAVE PTR 

0F6B 

BD 

OB 

F2 


JSR 


PEVAL 

GO CRUNCH 

0F6E 

DE 

87 



LDX 


BYTPTR 

GET STACK 

0F70 

96 

7C 



LDA 

A 

QTEMP+1 

GET DATA 

0F72 

A7 

00 



STA 

A 

0,X 

SAVE IT 

0F74 

08 




INX 




0F75 

DF 

87 



STX 


BYTPTR 

UPDATE AND SAVE 

0F77 

8C 

03 

00 


CPX 


♦BYTSTK+256 

0F7A 

27 

BC 



BEQ 


TYPE8J 


0F7C 

20 

DO 


* 

BRA 


TYPE9C 






* 

** TYPE10 








* EVALUATE TYPE 10 INSTRUCTION 

0F7E 

CE 

02 

00 

TYPE10 

LDX 


♦BYTSTK 


OF 81 

DF 

87 



STX 


BYTPTR 

SET UP STACK 

0F83 

BD 

OB 

F2 


JSR 


PEVAL 

GO EVALUATE 

0F86 

DE 

7B 



LDX 


QTEMP 


0F88 

DF 

7E 



STX 


OPCODE 

PUT DATA 

0F8A 

BD 

OC 

7E 

TYP10A 

JSR 


ADDPC2 

KICK PC 

0F8D 

DE 

6B 



LDX 


XTEMP1 

GET TERM PTR 

0F8F 

A6 

00 



LDA 

A 

0»X 

GET TERM 

0F91 

81 

OD 



CMP 

A 

♦ *D 

CHECK CR 

0F93 

27 

04 



BEQ 


TYP10C 


0F95 

81 

2C 



CMP 

A 

*' f 


0F97 

27 

05 



BEQ 


TYP10B 
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LOCN 

B1 

B2 

B3 






0F99 

86 

02 


TYP10C 

LDA 

A 

*2 


0F9B 

97 

90 



STA 

A 

OPCNT 

CORRECT COUNT 

0F9D 

39 




RTS 




0F9E 

97 

5A 


TYP10B 

STA 

A 

DATFLG 

SET MULT DATA FLAG 

OF AO 

86 

02 



LDA 

A 

*2 


0FA2 

97 

A6 



STA 

A 

BYTCNT 

SET COUNT 

0FA4 

08 




INX 



MOVE PAST TERM 

0FA5 

DF 

6B 



STX 


XTEMP1 

SET NEW INDEX 

0FA7 

BD 

OB 

F2 


JSR 


PEVAL 

GO EVALUATE NEXT 

OFAA 

BE 

87 



LDX 


BYTPTR 

GET POINTER 

OF AC 

96 

7B 



LDA 

A 

GTEMP 


OFAE 

A7 

00 



STA 

A 

0»X 


OFBO 

96 

7C 



LDA 

A 

GTEMP+1 


0FB2 

A7 

01 



STA 

A 

1»X 


0FB4 

08 




INX 




0FB5 

08 




INX 



PUT DATA AND ADJUST 

0FB6 

DF 

87 



STX 


BYTPTR 

SAVE PTR 

0FB8 

8C 

03 

00 


CPX 


♦BYTSTK+256 

OFBB 

20 

CD 


* 

BRA 


TYP10A 

LOOP TILL DONE 

OFBD 

7F 

00 

59 

♦ 

TYPE11 

CLR 


PCFLAG 

TURN PC OFF 

OFCO 

96 

8F 



LDA 

A 

PASS 


0FC2 

27 

25 



BEG 


TYP11C 

IF PASS 1 IGNORE 

0FC4 

96 

5D 



LDA 

A 

P3FLG 


0FC6 

27 

21 



BEG 


TYP11C 


0FC8 

96 

4F 



LDA 

A 

LABEL 


OFCA 

26 

IE 



BNE 


TYPERR 


OFCC 

96 

AE 



LDA 

A 

LIST 

SEE IF LIST ON 

OFCE 

27 

19 



BEG 


TYP11C 

IF NOT t IGNORE 

OFDO 

BD 

11 

D5 


JSR 


EVAL 

CRUNCH IT 

0FD3 

D6 

7C 



LDA 

B 

GTEMP+1 

GET COUNT 

0FD5 

26 

02 



BNE 


TYP11A 


0FD7 

C6 

01 



LDA 

B 

#1 

SET 1 LINE 

0FD9 

BD 

07 

BA 

TYP11A 

JSR 


PCRLF 

DO LF 

OFDC 

96 

5C 



LDA 

A 

EJFLG 

SEE IF EJECTED 

OFDE 

26 

03 



BNE 


TYP11B 

IF SOr QUIT 

OFEO 

5A 




DEC 

B 


COUNT OFF 

0FE1 

26 

F6 



BNE 


TYP11A 

LOOP TILL DONE 

0FE3 

7F 

00 

5C 

TYP11B 

CLR 


EJFLG 

RESET FLAG 

0FE6 

7F 

00 

5E 


CLR 


PRTFLG 

DON'T PRINT 

0FE9 

39 



TYP11C 

* 

RTS 



DONE 

OFEA 

7E 

10 

B4 

TYPERR 

* 

* 

JMP 


TYP15A 


OFED 

7F 

00 

59 

TYPE12 

CLR 


PCFLAG 


OFFO 

96 

8F 



LDA 

A 

PASS 


0FF2 

26 

F5 



BNE 


TYP11C 


0FF4 

96 

4F 



LDA 

A 

LABEL 


0FF6 

26 

F2 



BNE 


TYPERR 


0FF8 

DE 

6B 


TYP12D 

LDX 


XTEMP1 

GET ARG POINTER 

OFFA 

A6 

02 



LDA 

A 

2*X 


OFFC 

97 

7D 



STA 

A 

TEMP 

SAVE 

OFFE 

A6 

00 



LDA 

A 

0»X 


1000 

E6 

01 



LDA 

B 

lfX 

GET SWITCH ID 

1002 

CE 

10 

41 


LDX 


♦QPTLST 

POINT TO LIST 


43 
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LOCN 

B1 

B2 

B3 






1005 

A1 

00 


TYP12A 

CMP 

A 

OrX 

SEE IF MATCH 

1007 

27 

10 



BEG 


TYP12B 


1009 

08 



TYP12C 

INX 




100A 

08 




INX 




100B 

08 




INX 




100C 

08 




INX 




100D 

08 




INX 




100E 

08 




INX 



ADVANCE PTR 

100F 

8C 

10 

89 


CPX 


♦OPNEND+6 

SEE IF TABLE END 

1012 

26 

FI 



BNE 


TYP12A 

LOOP 

1014 

86 

OA 



LDA 

A 

*10 


1016 

7E 

07 

E5 


JMP 


ASMERR 

SET ERROR NUMBER AND 

1019 

El 

01 


TYP12B 

CMP 

B 

1»X 

SEE IF SECOND MATCH 

101B 

26 

EC 



BNE 


TYP12C 

IF NOT t GO BACK 

101D 

36 




PSH 

A 



101E 

96 

7D 



LDA 

A 

TEMP 

GET 3RD CHAR 

1020 

A1 

02 



CMP 

A 

2fX 

SEE IF MATCH 

1022 

32 




PUL 

A 



1023 

26 

E4 



BNE 


TYP12C 

IF NOTr LOOP 

1025 

A6 

03 



LDA 

A 

3*X 

GET DATA 

1027 

EE 

04 



LDX 


4>X 

GET ADDRESS 

1029 

A7 

00 



STA 

A 

OfX 

SET SWITCH 

102B 

BE 

6B 



LDX 


XTEMP1 


102D 

A6 

00 


FNDEND 

LDA 

A 

0,X 


102F 

08 




INX 




1030 

DF 

6B 



STX 


XTEMP1 


1032 

81 

OD 



CMP 

A 

#*D 


1034 

27 

OA 



BEQ 


OPTDON 


1036 

81 

20 



CMP 

A 

#' 


1038 

27 

06 



BEQ 


OPTDON 


103A 

81 

2C 



CMP 

A 

*'r 


103C 

27 

BA 



BEQ 


TYP12D 


103E 

20 

ED 



BRA 


FNDEND 


1040 

39 



OPTDON 

* 

OPTLST 

RTS 



DONE 

1041 

4C 



FCC 


'LIS' 


1042 

49 








1043 

53 








1044 

FF 




FCB 


♦FF 


1045 

00 

AE 



FDB 


LIST 


1047 

4E 




FCC 


'NOL' 


1048 

4F 








1049 

4C 








104A 

00 




FCB 


0 


104B 

00 

AE 



FDB 


LIST 


104D 

54 




FCC 


'TAP' 


104E 

41 








104F 

50 








1050 

FF 




FCB 


♦FF 


1051 

00 

B2 



FDB 


TAPE 


1053 

4E 




FCC 


'NOT' 


1054 

4F 








1055 

54 








1056 

00 




FCB 


0 


1057 

00 

B2 



FDB 


TAPE • 









TSC 6800 ASSEMBLER SYSTEM VI.4 


LOCN 

B1 

B2 

B3 



1059 

4D 




FCC 

105A 

45 





105B 

4D 





105C 

FF 




FCB 

105D 

00 

B3 



FDB 

105F 

4E 




FCC 

1060 

4F 





1061 

4D 





1062 

00 




FCB 

1063 

00 

B3 



FDB 

1065 

53 




FCC 

1066 

59 





1067 

4D 





1068 

FF 




FCB 

1069 

00 

AF 



FDB 

106B 

4E 




FCC 

106C 

4F 





106D 

53 





106E 

00 




FCB 

106F 

00 

AF 



FDB 

1071 

47 




FCC 

1072 

45 





1073 

4E 





1074 

FF 




FCB 

1075 

00 

BO 



FDB 

1077 

4E 




FCC 

1078 

4F 





1079 

47 





107A 

00 




FCB 

107B 

00 

BO 



FDB 

107D 

50 




FCC 

107E 

41 





107F 

47 





1080 

FF 




FCB 

1081 

00 

B1 



FDB 

1083 

4E 



QPNEND 

FCC 

1084 

4F 





1085 

50 





1086 

00 




FCB 

1087 

00 

B1 



FDB 





* 






* 


1089 

7F 

00 

59 

TYPE13 

CLR 

108C 

96 

8F 



LDA A 

108E 

27 

11 



BEG 

1090 

96 

4F 



LDA A 

1092 

26 

20 



BNE 

1094 

97 

5E 



STA A 

1096 

96 

B1 



LDA A 

1098 

27 

07 



BEG 

109A 

96 

AE 



LDA A 

109C 

27 

03 



BEG 

109E 

7F 

00 

5F 


CLR 

10A1 

39 



TYP13A 

RTS 


* 


'MEM' 


*FF 

MEMORY 

'NOM' 


0 

MEMORY 

'SYM' 


*FF 

SYMBOL 

'NOS' 


0 

SYMBOL 

'GEN' 


*FF 

GENER 

'NOG' 


0 

GENER 

'PAG' 


♦FF 

PAGER 

'NOP y 


0 

PAGER 


PCFLAG 

PASS 

TYP13A 

LABEL 

TYP15A 

PRTFLG 

PAGER SEE IF PAGER ON 

TYP13A IF NOT t IGNORE 

LIST SEE IF LIST ON 

TYP13A IF NOT r IGNORE 

PAGFLG 
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LOCN 

B1 

B2 

B3 






10A2 

96 

4F 


TYPE14 

LBA 

A 

LABEL 


10A4 

26 

OE 



BNE 


TYP15A 


10A6 

BD 

11 

B5 


JSR 


EVAL 

GO EVALUATE OPERAND 

10A9 

BE 

7B 



LDX 


QTEMP 

GET RESULT 

10AB 

BF 

4B 



STX 


PC 

SET PC 

10AD 

BF 

6B 



STX 


XTEMP2 


10AF 

39 




RTS 




10B0 

96 

4F 


TYPE15 

LBA 

A 

LABEL 


10B2 

26 

05 



BNE 


EGU1 


10B4 

86 

07 


TYP15A 

LBA 

A 

*7 

SET ERROR 

10B6 

7E 

07 

E5 


JMP 


ASMERR 


10B9 

BB 

09 

05 

EQU1 

JSR 


FNDLBL 

FIND LABEL 

10BC 

BF 

FB 



STX 


$FD 


10BE 

96 

8F 



LBA 

A 

PASS 

CHECK PASS 

10C0 

4A 




BEC 

A 



10C1 

97 

56 



STA 

A 

ERRFLG 


10C3 

BB 

11 

B5 


JSR 


EVAL 

GO EVALUATE 

10C6 

7F 

00 

56 


CLR 


ERRFLG 


10C9 

BE 

FB 



LDX 


$FD 


10CB 

96 

7C 



LBA 

A 

QTEMP+1 


10CD 

B6 

7B 



LBA 

B 

QTEMP 


10CF 

E7 

06 



STA 

B 

6» X 


10D1 

A7 

07 



STA 

A 

7*X 


10D3 

BE 

7B 



LBX 


QTEMP 


10D5 

BF 

6B 



STX 


XTEMP2 


10D7 

39 



TYP15C 

RTS 




10D8 

96 

84 



LBA 

A 

LSTERR 

ELSE ERROR- 

10DA 

7E 

07 

E5 

dr 

JMP 


ASMERR 

GO REPORT 

10DD 

7F 

00 

59 

* 

TYPE16 

CLR 


PCFLAG 


10E0 

96 

4F 



LBA 

A 

LABEL 


10E2 

26 

BO 



BNE 


TYP15A 


10E4 

86 

FF 



LBA 

A 

♦*FF , 


10E6 

97 

58 



STA 

A 

ENDFLG 


10E8 

39 



£ 

RTS 




10E9 

7F 

00 

59 

TYPE17 

CLR 


PCFLAG 

I 

10EC 

96 

8F 



LBA 

A 

PASS 


10EE 

27 

2E 



BEQ 


NAM3 

IF PASS1 IGNORE 

10F0 

96 

4F 



LBA 

A 

LABEL 


10F2 

26 

CO 



BNE 


TYP15A 


10F4 

CE 

00 

C6 


LBX 


♦TITLE 


10F7 

BF 

65 



STX 


XSAVE 

SAVE PTR 

10F9 

BE 

96 


NAM1 

LDX 


OPNPTR 

GET POINTER 

10FB 

A6 

00 



LBA 

A 

0»X 


10FD 

81 

OB 



CMP 

A 

♦ $D 

CHECK FOR CR 

10FF 

27 

OF 



BEQ 


NAM2 


1101 

08 




I NX 


GET TO NEXT 

1102 

BF 

96 



STX 


OPNPTR 


1104 

BE 

65 



LDX 


XSAVE 

GET OTHER PTR 

1106 

A7 

00 



STA 

A 

0»X 


1108 

08 




INX 




1109 

BF 

65 



STX 


XSAVE 

UPDATE 

HOB 

8C 

00 

E6 


CPX 


♦TITLE+32 
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LOCN 

B1 

B2 

B3 




110E 

26 

E9 



BNE 


1110 

86 

20 


NAM2 

LDA 

A 

1112 

BE 

65 



LDX 


1114 

8C 

00 

E6 

FILTIT 

CPX 


1117 

27 

05 



BEG 


1119 

A7 

00 



STA 

A 

11 IB 

08 




I NX 


me 

20 

F6 



BRA 


11 IE 

39 



NAM3 

* 

RTS 


11 IF 

BD 

11 

D5 

TYPE18 

JSR 


1122 

CE 

00 

7B 


LDX 


1125 

D6 

4C 



LDA 

B 

1127 

96 

4B 



LDA 

A 

1129 

BD 

OC 

FA 


JSR 


112C 

BE 

7B 



LDX 


112E 

DF 

4B 



STX 


1130 

39 



* 

RTS 






** EJECT 


1131 

37 



EJECT 

PSH 

B 

1132 

D6 

B1 



LDA 

B 

1134 

27 

65 



BEG 


1136 

CE 

11 

D1 


LDX 


1139 

BD 

07 

AB 


JSR 


113C 

37 




PSH 

B 

113D 

4F 




CLR 

A 

113E 

97 

A8 



STA 

A 

1140 

97 

B1 



STA 

A 

1142 

C6 

03 



LDA 

B 

1144 

27 

06 



BEG 


1146 

BD 

07 

BA 

PRTMAR 

JSR 


1149 

5A 




DEC 

B 

114A 

26 

FA 



BNE 


114C 

CE 

00 

C6 

MARDON 

LDX 


114F 

BD 

07 

AB 


JSR 


1152 

CE 

11 

A9 


LDX 


1155 

BD 

07 

AB 


JSR 


1158 

96 

AD 



LDA 

A 

115A 

8B 

01 



ADD 

A 

115C 

19 




DAA 


115D 

97 

AD 



STA 

A 

115F 

96 

AC 



LDA 

A 

1161 

89 

00 



ADC 

A 

1163 

19 




DAA 


1164 

97 

AC 



STA 

A 

1166 

27 

OC 



BEG 


1168 

84 

FO 



AND 

A 

116A 

27 

03 



BEG 


116C 

8D 

2F 



BSR 


116E 

5C 




INC 

B 

116F 

96 

AC 


PPAG6 

LDA 

A 

1171 

8D 

30 



BSR 


1173 

5C 




INC 

B 

1174 

96 

AD 


PPAG2 

LDA 

A 


NAM1 

*$20 

XSAVE 


♦TITLE+32 


NAM3 

0»X 


FILTIT 


EVAL 

♦GTEMP 

PC+1 

PC 

ADD16 

GTEMP 

PC 


PAGER 

SEE IF PAGE ON 

NOEJT 

IF NOT r SKIP 

♦EJSTR 

POINT TO EJECT STRING 

PDATA 

PRINT THE CHARS 

LINCNT 

PAGER 

*3 

MARDON 

PCRLF 

TURN PAGER OFF 

PRTMAR 

♦TITLE 

PRINT MARGIN 

PDATA 

#PPP 

SET IN TITLE 

PDATA 

PAGENO+1 

PRINT HEADER 

*1 

KICK PAGE COUNT 

PAGENO+1 

PAGENO 

*0 


PAGENO 

PPAG2 

#*F0 

PPAG6 

OUTHL 

PRINT MS 

SET FLAG 

PAGENO 

GET BYTE 

OUTHR 

PRINT LS OF MS 


PAGENQ+'l GET LS BYTE 
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LOCN 

B1 

B2 

B3 






1176 

27 

IE 



BEG 


PPAG3 


1178 

5D 




TST 

B 


SEE IF PRINTED YET 

1179 

26 

04 



BNE 


PPAG5 

IF SO. JUST PRINT 

117B 

85 

FO 



BIT 

A 

#$F0 

CHECK MS DIGIT 

117D 

27 

04 



BEG 


PPAG4 

IF 0. DON'T PRINT 

117F 

8D 

1C 


PPAG5 

BSR 


OUTHL 

PRINT 

1181 

96 

AD 



LDA 

A 

PAGENO-f 1 


1183 

8D 

IE 


PPAG4 

BSR 


OUTHR 


1185 

BD 

07 

BA 


JSR 


PCRLF 


1188 

BD 

07 

BA 


JSR 


PCRLF 


118B 

86 

FF 



LDA 

A 

**FF 


118D 

97 

5C 



STA 

A 

EJFLG 


118F 

97 

5F 



STA 

A 

PAGFLG 


1191 

33 




PUL 

B 


GET PAGE STATUS 

1192 

D7 

B1 



STA 

B 

PAGER 

RESTORE 

1194 

33 




PUL 

B 



1195 

39 




RTS 



DONE 

1196 

5D 



PPAG3 

TST 

B 


CHECK IF PRINTED 

1197 

26 

E6 



BNE 


PPAG5 


1199 

20 

E8 



BRA 


PPAG4 


119B 

33 



NOEJT 

PUL 

B 



119C 

39 




RTS 



DONE 

119D 

BD 

OC 

DB 

OUTHL 

JSR 


HEXL 


11A0 

7E 

03 

20 


JMP 


OUTCH 


11 A3 

BD 

OC 

DF 

OUTHR 

JSR 


HEXR 


11A6 

7E 

03 

20 


JMP 


OUTCH 


11A9 

20 



PPP 

FCC 


✓ 

/ 

11AA 

20 








11AB 

20 








11 AC 

20 








HAD 

20 








11AE 

20 








11AF 

20 








11B0 

20 








11B1 

54 




FCC 


'TSC MNEMONIC ASSEMBLER PAGE 

11B2 

53 




H i "I. -A 




11B3 

43 








11B4 

20 






• ’ ' i 


11B5 

4D 








11B6 

4E 








11B7 

45 








11B8 

4D 








11B9 

4F 








11BA 

4K 








1 IBB 

49 








11BC 

43 








11BD 

20 






■ * ; ■ 


11BE 

41 








11BF 

53 








11C0 

53 








11C1 

45 








11C2 

4D 








11C3 

42 








11C4 

4C 








11C5 

45 
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LOCN 

B1 

B2 B3 




11C6 

52 





11C7 

20 





11C8 

20 





11C9 

20 





11CA 

20 





11CB 

50 





11CC 

41 





11CD 

47 





I ICE 

45 





11CF 

20 





1 IDO 

04 



FCB 


11D1 

00 


EJSTR 

FCB 


11D2 

00 





11D3 

OA 





11D4 

04 


* 

** EVAL 






* EVALUATE AN 

1 IDS 

4F 


EVAL 

CLR 

A 

11D6 

97 

7B 


STA 

A 

11D8 

97 

7C 


ST A 

A 

11 DA 

97 

63 


STA 

A 

11DC 

DE 

6B 


LDX 


1 IDE 

DF 

96 


STX 


11E0 

DE 

96 

EVAL1A 

LDX 


11E2 

A6 

00 

FINDSC 

LDA 

A 

11E4 

08 



I NX 


11E5 

5F 



CLR 

B 

11E6 

81 

2B 


CMP 

A 

11E8 

27 

27 


BEG 


11EA 

5C 



INC 

B 

11EB 

81 

2D 


CMP 

A 

11ED 

27 

22 


BEG 


11EF 

5C 



INC 

B 

11F0 

81 

2A 


CMP 

A 

11F2 

26 

OA 


BNE 


11F4 

09 



DEX 


11F5 

9C 

96 


CPX 


11F7 

07 



TPA 


11F8 

08 



I NX 


11F9 

06 



TAP 


UFA 

27 

E6 


BEG 


11FC 

20 

13 


BRA 


11FE 

5C 


FINDS4 

INC 

B 

1 IFF 

81 

2F 


CMP 

A 

1201 

27 

OE 


BEG 


1203 

C6 

FF 

F2 

LDA 

B 

1205 

81 

20 


CMP 

A 

1207 

27 

08 


BEG 


1209 

81 

2C 


CMP 

A 

120B 

27 

04 


BEG 


120D 

81 

OD 


CMP 

A 

120F 

26 

D1 


BNE 


1211 

D7 

64 

FI 

STA 

B 

1213 

09 



DEX 



A 

Or Or 4>A r A 


OPERAND EXPRESSION 

QTEMP 

GTEMP+1 

OPN INITIALIZE 

XTEMP1 

OPNPTR SET POINTER 

OPNPTR GET OPERAND PTR 

0 r X GET CHAR 


#' + 

FI 

♦ - 

FI 

#'* 

FINDS4 

OPNPTR 


FINDSC 

FI 

*'/ 

FI 

**FF 

*' 

FI 

*'» 

FI 

#*D 

FINDSC 

TERM SAVE TERMINATOR 

ADJUST 
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LOCN 

B1 

B2 

B3 






1214 

DF 

6B 



STX 


XTEMPI 


1216 

BE 

96 


LOAD 

LDX 


OPNPTR 

GET POINTER 

1218 

7F 

00 

7D 


CLR 


TEMP 


121B 

A6 

00 



LDA 

A 

OfX 

GET CHARACTER 

121D 

81 

41 



CMP 

A 

*' A 


121F 

25 

IF 



BCS 


L0AD1 


1221 

81 

5A 



CMP 

A 

#'Z 


1223 

22 

IB 



BHI 


L0AD1 

CHECK FOR LABEL 

1225 

DF 

79 



STX 


QTEMP2 

SAVE X 

1227 

BD 

OC 

65 


JSR 


CLRLAB 

SET LABEL TO ZERO 

122A 

DE 

79 



LDX 


QTEMP2 

GET X BACK 

122C 

BD 

OC 

8F 


JSR 


COPLBL 


122F 

BD 

09 

05 


JSR 


FNDLBL 

GO GET VALUE 

1232 

EE 

06 



LDX 


6 f X 

GET VALUE 

1234 

DF 

79 



STX 


QTEMP2 

STORE IT 

1236 

DE 

6B 



LDX 


XTEMP1 


1238 

4D 




TST 

A 


SEE IF FOUND 

1239 

2A 

50 



BPL 


L5 


123B 

86 

01 



LDA 

A 

*1 


123D 

7E 

12 

98 


JMP 


F3 


1240 

C6 

01 


L0AD1 

LDA 

B 

#1 

SET ID 

1242 

81 

24 



CMP 

A 

*'$ 

CHECK FOR BASE TAGS 

1244 

27 

2F 



BEG) 


LI 


1246 

5C 




INC 

B 



1247 

81 

25 



CMP 

A 

*$25 

PERCENT 

1249 

27 

2A 



BEG) 


LI 


124B 

5C 




INC 

B 



124C 

81 

40 



CMP 

A 

*'<? 


124E 

27 

25 



BEQ 


LI 


1250 

5C 




INC 

B 



1251 

81 

27 



CMP 

A 

*$27 

CHECK FOR SINGLE QUOTE 

1253 

27 

20 



BEG) 


LI 


1255 

DE 

6B 



LDX 


XTEMP1 

GET END POINTER 

1257 

09 




DEX 



MOVE TO LAST CHAR 

1258 

7C 

00 

7D 


INC 


TEMP 

- 

125B 

5A 




DEC 

B 


ft•• 

125C 

A6 

00 



LDA 

A 

OfX 

GET IT 

125E 

81 

4F 



CMP 

A 

*'0 

CHECK OCTAL 

1260 

27 

16 



BEG) 


L2 


1262 

81 

51 



CMP 

A 

*'Q 

CHECK OCTAL 

1264 

27 

12 



BEQ 


L2 


1266 

5A 




DEC 

B 



1267 

81 

42 



CMP 

A 

* 'B 

CHECK BINARY 

1269 

27 

OD 



BEQ 


L2 


126B 

5A 




DEC 

B 



126C 

81 

48 



CMP 

A 

#'H 

CHECK HEX 

126E 

27 

08 



BEQ 


L2 


1270 

5A 




DEC 

B 


SET DECIMAL 

1271 

D7 

7D 



STA 

B 

TEMP 


1273 

20 

03 



BRA 


L2 


1275 

08 



LI 

INX 



MOVE TO FIRST CHAR OF CONST 

1276 

DF 

96 



STX 


OPNPTR 

SAVE 

1278 

4F 



L2 

CLR 

A 



1279 

97 

79 



STA 

A 

QTEMP2 


127B 

97 

7A 



STA 

A 

QTEMP2+1 
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PAGE 

LOCN 

B1 

B2 

B3 






J.27D 

CE 

12 

C? 


LDX 


♦BCONV 

POINT TO TABLE 

1280 

58 




ASL. 

B 



1281 

27 

04 



BEQ 


L4 


1283 

08 



L.3 

INX 




1284 

5A 




DEC 

B 



1285 

26 

FC 



BNE 


L.3 

GET TO ADDRESS 

1287 

EE 

00 


L4 

LDX 


OrX 

GET ADDRESS 

128? 

AD 

00 



JSR 


OrX 

COLLECT DATA 

128B 

96 

7D 


L5 

LDA 

A 

TEMP 

CHECK PRE OR POST 

128D 

27 

01 



BEQ 


L6 


128F 

08 




INX 




1290 

DF 

71 


L6 

STX 


XTEMP4 

SAVE 

1292 

9C 

6B 



CPX 


XTEMP1 

SEE IF GOT ALL 

1294 

27 

OB 



BEQ 


EVAL1B 


1296 

86 

09 



LDA 

A 

#9 


1298 

7F 

00 

7B 

F3 

CLR 


QTEMP 


129B 

7F 

00 

7C 


CLR 


QTEMP+1 

RESET ARG 

129E 

7E 

07 

E5 


JMP 


ASMERR 

GO TO ERROR 

12A1 

96 

63 


EVAL1B 

LDA 

A 

OPN 

GET OPERATION 

12A3 

CE 

12 

Cl 


LDX 


♦OPNTBL 

POINT TO JUMP TABLE 

12A6 

48 




ASL 

A 



12A7 

27 

04 



BEQ 


EVAL3 


12A9 

08 



EVAL2 

INX 



POINT NEXT 

12AA 

4A 




DEC 

A 



12AB 

26 

FC 



BNE 


EVAL2 

MOVE TO TARGET 

12AD 

EE 

00 


EVAL3 

LDX 


0»X 

GET TARGET ADDR. 

12AF 

AD 

00 


s ■ . 

JSR 


OfX 

DO OPERATION 

12B1 

DE 

6B 



LDX 


XTEMP1 

GET POINTER 

12B3 

08 




INX 




12B4 

DF 

96 



STX 


OPNPTR 

SAVE PLACE 

12B6 

96 

64 



LDA 

A 

TERM 

GET LAST TERM 

12B8 

97 

63 



STA 

A 

OPN 

SAVE OPERATION 

12BA 

2B 

03 



BMI 


EVAL4 

IF A TERMINATOR r DONE 

12BC 

7E 

11 

EO 


JMP 


EVAL1A 

ELSE PROCESS AGAIN 

12BF 

4F 



EVAL4 

CLR A 

■ ■ \ 

DONE 

12C0 

39 



Or 

RTS 




12C1 

12 

D3 


* 

OPNTBL 

FDB 


OPADD 


12C3 

12 

DD 



FDB 


OPSUB 


12C5 

12 

E7 



FDB 


OPMUL 


12C7 

13 

OF 



FDB 


OPDIV 


12C9 

13 

5B 


* 

BCONV 

FDB 


DECM 


12CB 

13 

?A 



FDB 


HEX 


12CD 

13 

BA 



FDB 


BIN 


12CF 

13 

DO 



FDB 


OCT 


12D1 

13 

E7 


* 

FDB 


ASC 


12D3 

96 

79 


OPADD 

LDA 

A 

QTEMP2 


12D5 

D6 

7A 



LDA 

B 

QTEMP2+1 

GET OPERAND 

12D7 

CE 

00 

7B 


LDX 


♦QTEMP 

POINT TO ACC. 

12DA 

7E 

OC 

FA 

* 

JMP 


ADD 16 

GO ADD 

1200 

96 

79 


OPSUB 

LDA 

A 

QTEMP2 


12DF 

D6 

7A 



LDA 

B 

QTEMP2+1 
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LOCN 

B1 

B2 

B3 






12E1 

CE 

00 

7B 


LDX 


♦QTEMP 


12E4 

7E 

OC 

E8 

& 

JMP 


SUB16 


12E7 

CE 

00 

00 

OPMUL 

LDX 


*0 


12EA 

BF 

77 



STX 


QTEMP3 

SET ACCUM. 

12EC 

CE 

00 

77 


LDX 


♦QTEMP3 


12EF 

C6 

10 



LDA 

B 

*16 

SET COUNT 

12F1 

A6 

03 


0PMUL2 

LDA 

A 

3» X 


12F3 

46 




ROR 

A 


CHECK BIT 

12F4 

24 

09 



BCC 


OPMUL3 


12F6 

37 




PSH 

B 



12F7 

A6 

04 



LDA 

A 

4j>X 


12F9 

E6 

05 



LDA 

B 

5»X 

GET OPERANDS 

12FB 

BD 

OC 

FA 


JSR 


ADD 16 

ADD IN 

12FE 

33 




PUL 

B 



12FF 

64 

00 


0PMUL3 

LSR 


0,X 


1301 

66 

01 



ROR 


1 »X 


1303 

66 

02 



ROR 


2f X 


1305 

66 

03 



ROR 


3 r X 


1307 

5A 




DEC 

B 


COUNT OFF 

1308 

26 

E7 



BNE 


0PMUL2 


130A 

EE 

02 



LDX 


2fX 

GET RESULT 

130C 

DF 

7B 



STX 


QTEMP 

SAVE 

130E 

39 




RTS 




130F 

CE 

00 

00 

* 

QPDIV 

LDX 


*0 


1312 

DF 

77 



STX 


QTEMP3 

INIT. ACCUM. 

1314 

BE 

79 



LDX 


QTEMP2 


1316 

D6 

7C 



LDA 

B 

QTEMP+1 


1318 

B7 

7A 



STA 

B 

QTEMP2+1 


131A 

D6 

7B 



LDA 

B 

QTEMP 


131C 

D7 

79 



STA 

B 

QTEMP2 


131E 

DF 

7B 



STX 


QTEMP 

MOVE OPERAND 

1320 

C6 

11 



LDA 

B 

#17 

SET COUNT 

1322 

CE 

00 

77 


LDX 


♦QTEMP3 

POINT TO ACC. 

1325 

37 



0PDIV1 

PSH 

B 



1326 

96 

7B 



LDA 

A 

QTEMP 


1328 

D6 

7C 



LDA 

B 

QTEMP+1 


132A 

BD 

OC 

E8 


JSR 


SUB16 


132D 

25 

08 



BCS 


0PDIV3 


132F 

96 

7B 



LDA 

A 

QTEMP 


1331 

D6 

7C 



LDA 

B 

QTEMP+1 


1333 

BD 

OC 

FA 


JSR 


ADD16 

ADD BACK 

1336 

OC 




CLC 




1337 

69 

03 


0FDIV3 

ROL 


3 fX 


1339 

69 

02 



ROL 


2rX 


133B 

69 

01 



ROL 


lrX 


133D 

69 

00 



ROL 


OtX 

SHIFT IT 

133F 

33 




PUL 

B 


RETRIEVE COUNT 

1340 

5A 




DEC 

B 


COUNT OFF 

1341 

26 

E2 



BNE 


0PDIV1 

DO AGAIN 

1343 

EE 

02 



LDX 


2fX 

GET RESULT 

1345 

DF 

7B 



STX 


QTEMP 

SAVE 

1347 

39 




RTS 



DONE 


* 
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* 



1348 

E6 

00 


INDEC 

LDA 

B 

134A 

CO 

3A 



SUB 

B 

134C 

24 

02 



BCC 


134E 

CB 

OA 



ADD 

B 

1350 

39 



INPEC2 

RTS 






* 



1351 

96 

6D 


SPCL 

LDA 

A 

1353 

97 

79 



STA 

A 

1355 

96 

6E 



LDA 

A 

1357 

97 

7A 



STA 

A 

1359 

08 




I NX 


135A 

39 




RTS 






* 



135B 

8D 

2B 


PECM 

BSR 


135D 

A6 

00 



LDA 

A 

135F 

81 

2A 



CMP 

A 

1361 

27 

EE 



BEG 


1363 

8D 

E3 


PECM2 

BSR 


1365 

24 

20 



BCC 


1367 

37 




PSH 

B 

1368 

96 

79 



LDA 

A 

136A 

DA 

7A 



LDA 

B 

136C 

8 Ei 

25 



BSR 


136E 

8B 

23 



BSR 


1370 

PB 

7A 



ADD 

B 

1372 

D7 

7A 



STA 

B 

1374 

99 

79 



ADC 

A 

1376 

97 

79 



STA 

A 

1378 

8D 

19 



BSR 


137A 

33 




PUL 

B 

137B 

4F 




CLR 

A 

137C 

DB 

7A 



ADD 

B 

137E 

99 

79 



ADC 

A 

1380 

D 7 

7A 



STA 

B 

1382 

97 

79 



STA 

A 

1384 

08 




INX 


1385 

20 

DC 



BRA 


1387 

39 



PECM3 

RTS 






* 



1388 

DEE 

96 


INITR 

LDX 


138A 

7F 

00 

79 


CLR 


138D 

7F 

00 

7A 


CLR 


1390 

39 




RTS 






* 



1391 

8D 

00 


LTWO 

BSR 






* 



1393 

78 

00 

7A 

LONE 

ASL 


1396 

79 

00 

79 


ROL 


1399 

39 




RTS 






* 



139A 

8D 

EC 


HEX 

BSR 


139C 

A6 

00 


HEX2 

LDA 

A 

139E 

80 

47 



SUB 

A 

13A0 

2 A 

17 



BPL 





0 r X 

GET A CHAR 

♦ $3A 

REMOVE BIAS 

INDEC2 
#$ A 

CORRECT 

XTEMP2 

GTEMP2 

XTEMP2+1 

GTEMP2+1 

ALIGN POINTER 

INITR 

OfX 

GO INITIALIZE 

#'* 

CHECK SPECIAL CHAR 

SPCL 

INDEC 

DECM3 

GO FETCH 

QTEMP2 

GTEMP2+1 

LONE 

LEFT ONE 

LONE 

GTEMP2+1 

AGAIN 

GTEMP2+1 

ADD IN 

QTEMP2 

GTEMP2 


LONE 

LEFT AGAIN 

GTEMP2+1 

QTEMP2 

GTEMP2+1 


GTEMP2 

“ 

DECM2 

GO AT IT AGAIN 

OPNPTR 

GET POINTER 

QTEMP2 

GTEMP2+1 

ZERO ACCUMULATOR 

LONE 

LEFT ONE 

GTEMP2+1 

QTEMP2 



INITR INITIALIZE 

0r X GET CHAR 

t'G REMOVE BIAS 

HEX4 
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B2 

B3 






13A2 

8B 

06 



ADD 

A 

*6 

ADD ON 

13A4 

2A 

04 



BPL 


HEX3 


13A6 

8B 

07 



ADD 

A 

#7 

ADD AGAIN 

13A8 

2A 

OF 



BPL 


HEX4 

REMOVE $3A - $40 

13AA 

8B 

OA 


HEX3 

ADD 

A 

*10 

CORRECT 

13AC 

2B 

OB 



BMI 


HEX4 

REMOVE <$30 

13AE 

8B 

El 



BSR 


LTWO 


13B0 

8D 

DF 



BSR 


LTWO 


13B2 

9B 

7A 



ADD 

A 

GTEMP2+1 


13B4 

97 

7A 



STA 

A 

0TEMP2+1 


13B6 

08 




INX 




13B7 

20 

E3 



BRA 


HEX2 


13B9 

39 



HEX4 

RTS 




13BA 

8D 

CC 


♦ 

BIN 

BSR 


INITR 


13BC 

A6 

00 


BIN2 

LDA 

A 

0,X 


13BE 

80 

30 



SUB 

A 

#$30 


13C0 

2B 

F7 



BMI 


HEX4 


13C2 

81 

01 



CMP 

A 

#1 


13C4 

O'? 

4U* A- 

F3 



BHI 


HEX4 


13C6 

46 




ROR 

A 



13C7 

79 

00 

7A 


ROL 

GTEMP2+1 


13CA 

79 

00 

79 


ROL 


QTEMP2 


13CD 

08 




INX 




13CE 

20 

EC 



BRA 


BIN2 


13D0 

8D 

B6 


OCT 

BSR 


INITR 


13D2 

A6 

00 


0CT1 

LDA 

A 

OrX 


13D4 

80 

30 



SUB 

A 

*$30 


13D6 

2B 

El 



BMI 


HEX4 


13D8 

81 

07 



CMP 

A 

*7 


13DA 

22 

DD 



BHI 


HEX4 


13DC 

8D 

B3 



BSR 


LTUO 


13DE 

8D 

B3 



BSR 


LONE 

MULT X 8 

13E0 

9B 

7A 



ADD 

A 

QTEMP2+1 


13E2 

97 

7A 



STA 

A 

GTEMP2+1 


13E4 

08 




INX 




13E5 

20 

EB 



BRA 


OCT 1 


13E7 

8D 

9F 


ASC 

BSR 


INITR 

GO INITIALIZE 

13E9 

A6 

00 



LDA 

A 

OfX 

GET CHAR 

13EB 

97 

7A 



STA 

A 

GTEMP2+1 

SET CHAR 

13ED 

DE 

6B 



LDX 


XTEMP1 

IGNORE REST 

13EF 

39 



* 

RTS 



DONE 





* 

** SHELL 








* DO A 

SHELL SORT 


13F0 

7F 

00 

7D 

SHELL 

CLR 


TEMP 


13F3 

86 

08 



LDA 

A 

*8 


13F5 

36 




PSH 

A 



13F6 

86 

20 



LDA 

A 

#32 


13F8 

36 




PSH 

A 



13F9 

86 

68 



LDA 

A 

#104 


13FB 

36 




PSH 

A 


SET GAP WIDTHS 

13FC 

32 



SHELL1 

PUL 

A 

GET A GAP 
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13FD 

97 

AA 



STA 

A 

GAP 

SAVE 

13FF 

BE 

40 



LBX 


LBLBEG 


1401 

DF 

77 


SHELL2 

STX 


QTEMP3 

SAVE PLACE 

1403 

DF 

7B 


SETGAP 

STX 


QTEMP 

SAVE PTR 

1405 

96 

7C 



LBA 

A 

QTEMP+1 


1407 

9B 

AA 



ABB 

A 

GAP 


1409 

97 

7A 



STA 

A 

QTEMP2+1 


140B 

96 

7B 



LBA 

A 

QTEMP 


140D 

89 

00 



ABC 

A 

*0 


140F 

97 

79 



STA 

A 

QTEMP2 

SET BOTTOM POINTER 

1411 

91 

42 



CMP 

A 

LBLENB 


1413 

25 

08 



BCS 


SORT 


1415 

26 

60 



BNE 


PASBON 


1417 

96 

7A 



LBA 

A 

QTEMP2+1 


1419 

91 

43 



CMP 

A 

LBLENBT1 


141B 

24 

5A 



BCC 


PASBON 


141D 

C6 

06 


SORT 

LBA 

B 

*6 

SET FOR 6 COMPARES 

141F 

BE 

7B 



LBX 


QTEMP 

GET TOP PTR 

1421 

BF 

69 



STX 


XTEMP 

SAVE 

1423 

BE 

79 



LBX 


QTEMP2 

GET BOTTOM PTR 

1425 

BF 

6B 



STX 


XTEMP2 

SAVE 

1427 

BE 

69 


CHKLOP 

LBX 


XTEMP 

GET PTR 

1429 

A6 

00 



LBA 

A 

OtX 


142B 

08 




INX 



GET CHAR ANB ABV. 

142C 

BF 

69 



STX 


XTEMP 


142E 

BE 

6B 



LBX 


XTEMP2 

GET PTR 

1430 

A1 

00 



CMP 

A 

OtX 

CHECK RELATION 

1432 

27 

4B 



BEQ 


SAME 

SAME? 

1434 

23 

30 



BLS 


ORBOK 

IN ORBER? 

1436 

C6 

08 



LBA 

B 

*8 

SET 8 TRANSFERS 

1438 

BE 

7B 



LBX 


QTEMP 

GET TABLE PTR 

143A 

BF 

69 


MOVELP 

STX 


XTEMP 

SAVE 

143C 

37 




PSH 

B 


SAVE COUNT 

143D 

A6 

00 



LBA 

A 

OtX 


143F 

BE 

79 



LBX 


QTEMP2 

GET BEST PTR 

1441 

E6 

00 



LBA 

B 

OtX 


1443 

A7 

00 



STA 

A 

OfX 

SWITCH 

1445 

08 




INX 




1446 

BF 

79 



STX 


QTEMP2 

SAVE PTR 

1448 

BE 

69 



LBX 


XTEMP 

GET BEST PTR 

144A 

E7 

00 



STA 

B 

OtX 

SWITCH 

144C 

08 




INX 




144D 

33 




PUL 

B 



144E 

5A 




BEC 

B 



144F 

26 

E9 



BNE 


MOVELP 

LOOP TILL BONE 

1451 

96 

7B 



LBA 

A 

TEMP 

GET FLAG 

1453 

26 

03 



BNE 


SHELLS 


1455 

73 

00 

7B 


COM 


TEMP 

CHANGE FLAG 

1458 

BE 

7B 


SHELLS 

LBX 


QTEMP 

GET PTR 

145A 

9C 

40 



CPX 


LBLBEG 

SEE IF AT TOP 

145C 

27 

08 



BEQ 


ORBOK 

IF S0> GO BOWN 

145E 

C6 

08 



LBA 

B 

#8 


1460 

09 



BECXX 

BEX 



MOVE BACK 

1461 

5A 




BEC 

B 



1462 

26 

FC 



BNE 


BECXX 
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1464 

20 

9B 



BRA 

SETGAP 


1466 

96 

7B 


ORBOK 

LBA A 

TEMP 

GET FLAG 

1468 

27 

03 



BEO 

SHELL6 

IF Ot FOWARB 

146A 

7F 

00 

7B 


CLR 

TEMP 

SET FOWARB 

146D 

BE 

77 


SHELL6 

LBX 

GTEMP3 

GET LIST POINTER 

146F 

C6 

08 



LBA B 

#8 

SET FOR NEXT 

1471 

08 



OFFLOP 

I NX 



1472 

5A 




BEC B 


MOVE PTR 

1473 

26 

FC 



BNE 

OFFLOP 


1475 

20 

8A 



BRA 

SHELL2 


1477 

96 

AA 


PASBON 

LBA A 

GAP 

GET BISTANCE 

147? 

81 

08 



CMP A 

*8 


147B 

27 

03 



BEG 

SRTBON 

IF 8 r BONE 

147D 

7E 

13 

FC 


JMP 

SHELL1 


1480 

39 



SRTBON 

RTS 



1481 

08 



SAME 

INX 



1482 

DF 

6B 



STX 

XTEMP2 

SAVE PTR 

1484 

5A 




BEC B 


CHECKEB ALL 6? 

1485 

26 

AO 



BNE 

CHKLOP 


1487 

20 

BB 


* 

BRA 

ORBOK 






* 

** OBJCOB 







* PROBUCE MIKBUG RECORB 

FORMAT 

1489 

96 

62 


OBJCOB 

LBA A 

OBJINT 

SEE IF FIRST CALL 

148B 

27 

OC 



BEG 

0BJC01 

IF SO? SKIP 

148B 

CE 

04 

CO 


LBX 

♦TAPEON 


1490 

BD 

04 

B2 


JSR 

CONTRL 

TURN TAPE ON 

1493 

BD 

04 

C8 


JSR 

BELAY 

BELAY FOR STARTUP 

1496 

7F 

00 

62 


CLR 

OBJINT 

RESET FLAG 

1499 

BE 

6B 


0BJC01 

LUX 

XTEMP2 

GET PC (LAST TIME'S) 

149B 

9C 

9E 



CPX 

LASTF'C 


149D 

07 




TPA 



149E 

BE 

4B 



LBX 

PC 


14A0 

BF 

9E 



STX 

LASTPC 

SET NEW LAST PC 

14A2 

06 




TAP 


RESTORE CCR 

14A3 

27 

03 



BEG 

0BJC04 

SEE IF NEW ORG 

14A5 

BB 

15 

18 


JSR 

PRTREC 

IF SO, PRINT LAST PART 

14A8 

96 

90 


0BJC04 

LBA A 

OF'CNT 

GET BYTE COUNTER 

14AA 

B6 

A7 


0BJC03 

LBA B 

BUFCNT 

GET BUFFER COUNT 

14AC 

26 

04 



BNE 

0BJC05 

IF NOT EMPTY j SKIP 

14AE 

BE 

6B 



LBX 

XTEMP2 

GET PC 

14B0 

BF 

AO 



STX 

OBJABR 

SET RECORB ABBRESS 

14B2 

BE 

89 


0BJC05 

LBX 

OBJPTR 

GET BEST PTR 

14B4 

B6 

7E 



LBA B 

OPCOBE 


14B6 

E7 

00 



STA B 

0,X 


14B8 

08 




INX 



14B9 

7C 

00 

A7 


INC 

BUFCNT 


14BC 

4A 




BEC A 



14BD 

27 

13 



BEG 

0BJC06 


14BF 

B6 

7F 



LBA B 

0P1 


14C1 

E7 

00 



STA B 

0,X 


14C3 

08 




INX 



14C4 

7C 

00 

A7 


INC 

BUFCNT 


14C7 

4A 




BEC A 




56 







TSt: 6800 ASSEMBLER SYSTEM 01.4 PAGE 


LOCN 

B1 

B2 

B3 






14C8 

27 

08 



BEG 


0BJC06 


14CA 

D6 

80 



LDA 

B 

0P2 


14CC 

E7 

00 



STA 

B 

OfX 


14CE 

08 




INX 




14CF 

7C 

00 

A7 


INC 


BUFCNT 

PUT DATAr SET COUNT 

14D2 

8D 

20 


0BJC06 

BSR 


CHKGEN 

GO CHECK IF BUF. FULL 

14D4 

96 

5A 



LDA 

A 

DATFLG 

CHECK FCCfFCBfFDB 

14D6 

27 

3F 



BEG 


OBJDON 

IF NOT r DONE 

14D8 

CE 

02 

00 


LDX 


♦BYTSTK 


14DB 

DF 

71 



STX 


XTEMP4 

SET DATA BUFFER POINTER 

14DD 

BE 

71 


0BJC07 

LDX 


XTEMP4 

GET DATA POINTER 

14DF 

9C 

87 



CPX 


BYTPTR 

SEE IF EMPTY 

14E1 

27 

34 



BEG 


OBJDON 

IF SO r DONE 

14E3 

A6 

00 



LDA 

A 

OfX 

GET DATA 

14E5 

08 




INX 


• 


14E6 

BF 

71 



STX 


XTEMP4 

FIX PTR 

14E8 

BE 

89 



LDX 


OBJPTR 

GET PTR 

14EA 

A7 

00 



STA 

A 

OrX 

PUT DATA 

14EC 

08 




INX 



ADVANCE 

14ED 

7C 

00 

A7 


INC 


BUFCNT 

FIX COUNT 

14F0 

8B 

02 



BSR 


CHKGEN 

CHECK GENERATE TIME 

14F2 

20 

E9 



BRA 


0BJC07 

LOOP TILL EMPTY 

14F4 

BF 

89 


CHKGEN 

STX 


OBJPTR 

SAVE POINTER- 

14F6 

96 

A7 



LDA 

A 

BUFCNT 

GET COUNT 

14F8 

81 

OF 



CMP 

A 

*15 


14FA 

A- Am 

01 



BHI 


GENOBJ 

IF >=16 TIME TO PUNCH 

14FC 

39 




RTS 




14FD 

36 



GENOBJ 

PSH 

A 


SAVE COUNT 

14FE 

86 

10 



LDA 

A 

*16 

SET BYTE COUNT 

1500 

BB 

15 

1C 


JSR 


RECORD 

GO PUNCH RECORD 

1503 

32 




PUL 

A 


GET COUNT 

1504 

CE 

00 

B4 


LDX 


♦OBJBUF 


1507 

80 

10 



SUB 

A 

*16 

CALCULATE DATA LEFT 

150? 

97 

A7 



STA 

A 

BUFCNT 

UPDATE COUNT 

150B 

27 

08 


SHIFTL 

BEG 


SAVEPL 

IF Of HAVE PLACE 

150D 

E6 

10 


MOVE 

LDA 

B 

16 f X 

GET DATA 

150F 

E7 

00 



STA 

B 

OrX 


1511 

08 




INX 



MOVE PTR 

1512 

4A 




DEC 

A 


KICK COUNT 

1513 

26 

F8 



BNE 


MOVE 

MOVE ALL DATA 

1515 

BF 

89 


SAVEPL 

STX 


OBJPTR 

SAVE BUFFER PTR 

1517 

39 



OBJDON 

RTS 



DONE 

1518 

96 

A7 


PRTREC 

LDA 

A 

BUFCNT 

GET COUNT 

151A 

27 

FB 



BEG 


OBJDON 

IF Or NOTHING TO PUNCH 

151C 

36 



RECORD 

PSH 

A 


SAVE COUNT 

151D 

7F 

00 

A7 


CLR 


BUFCNT 

SET COUNT 0 

1520 

CE 

00 

B4 


LDX 


♦OBJBUF 


1523 

BF 

8? 



STX 


OBJPTR 

RESET POINTER 

1525 

8B 

3D 



BSR 


HEADER 

PUNCH HEADER 

1527 

32 




PUL 

A 



1528 

36 




PSH 

A 


GET COUNT 

1529 

8B 

03 



ADD 

A 

*3 

SET BYTE COUNT 

152B 

8B 

23 



BSR 


TAPBYT 

PUNCH BYTE 

152D 

96 

AO 



LDA 

A 

OBJADR 

GET MS ADDRESS 

152F 

BB 

15 

50 


JSR 


TAPBYT 



57 
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1532 

96 

A1 

LDA 

A 

OBJABR+1 


1534 

81.i 

1A 

BSR 


TAPBYT 


1536 

32 


PUL 

A 



1537 

36 


PSH 

A 


GET COUNT AGAIN 

1538 

9B 

A1 

ABB 

A 

OBJABR+1 


153A 

97 

A1 

STA 

A 

OBJABR+1 


153C 

96 

AO 

LBA 

A 

OBJABR 


153E 

89 

00 

ABC 

A 

*0 


1540 

97 

AO 

STA 

A 

OBJABR 

SET NEW ABBRESS 

1542 

33 


PUL 

B 


GET COUNT 

1543 

BE 

89 

LBX 


OBJPTR 


1545 

A6 

00 OBJLP 

LBA 

A 

OfX 

GET BATA 

5 547 

8D 

07 

BSR 


TAPBYT 

PUNCH IT 

1549 

08 


INX 




154 A 

5A 


BEC 

H 


CHECK BONE 

154B 

26 

F8 

BNE 


OBJLP 


154D 

96 

61 

LBA 

A 

CKSUM 

GET CHECKSUM 

154F 

43 


COM 

A 


CORRECT 


* 

** TAPBYT 






* PUNCH 

A BYTE 

ANB CALC 

CHECKSUM 

1550 

36 



TAPBYT 

PSH 

A 


SAVE BYTE 

1551 

9B 

61 



ABB 

A 

CKSUM 

UPBATE CHECKSUM 

1553 

97 

61 



STA 

A 

CKSUM 


1555 

32 




PUL 

A 



1556 

36 




PSH 

A 


GET CHAR 

1557 

BB 

OC 

BB 


JSR 


HEXL 


155A 

BB 

03 

23 


JSR 


TAPOUT 


155B 

32 




PUL 

A 



155E 

BB 

OC 

BF 


JSR 


HEXR 


1561 

7E 

03 

23 


JMP 


TAPOUT 


1564 

CE 

15 

6F 

HEABER 

LBX 


♦LNHBX 


1567 

C6 

08 



LBA 

B 

♦8 


1569 

7F 

00 

61 


CLR 


CKSUM 

SET CHECKSUM 

156C 

7E 

04 

B 6 


JMP 


PCTRL 

GO PUNCH 

156F 

OB 



LNHBX 

FCB 


*Br*Ar0,0 

*0,0 

1570 

OA 








1571 

00 








1572 

00 








1573 

00 








1574 

00 








1575 

53 




FCC 


'SI' 


1576 

31 



* 

* 









* 

* 

** MEMCOB 








* INSTALL OBJECT COBE IN 

MEMORY 

1577 

BE 

6B 


MEMCOB 

LBX 


XTEMP2 

GET PC 

1579 

9C 

9C 



CPX 


LSTPCM 

CHECK CONTIGUOUS COBE 

157B 

07 




TPA 




157C 

BE 

4B 



LBX 


PC 


157E 

BF 

9C 



STX 


LSTPCM 



58 
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ASS 

EMBLER SYSTEM 01 

♦ 4 


PAGE 

LQCN 

B1 

B2 

B3 






1580 

06 




TAP 



RESTORE STATUS 

1581 

27 

20 



BEQ 


MEM2 

IF CONT* f SKIP 

1583 

BE 

8B 



LBX 


MEMPTR 

GET POINTER 

1585 

96 

6B 



LB A 

A 

XTEMP2 

GET PC 

1587 

A 7 

02 



ST A 

A 

2f X 


1589 

96 

6E 



LB A 

A 

XTEMP2+1 


158B 

A7 

03 



STA 

A 

3 r X 

PUT IN MEMORY 

158D 

9C 

49 



CF'X 


MEMOBJ 

CHECK BEGINNING 

158F 

27 

03 



BEQ 


MEM1 


1591 

BD 

15 

F4 


JSR 


FIXCNT 

GO FIX BYTE COUNT 

1594 

BE 

8B 


MEM1 

LBX 


MEMPTR 

GET POINTER 

1596 

BF 

A2 



STX 


LASTM 

SAVE PLACE 

1598 

08 




INX 




1599 

08 




INX 




159 A 

08 




INX 




159B 

08 




INX 

• 



159C 

4F 




CLR 

A 



159D 

97 

9A 



STA 

A 

MCOUNT 


159F 

97 

9B 



STA 

A 

MCOUNT+1 

SET BYTE COUNT 

15A1 

BF 

8B 



STX 


MEMPTR 

SAVE PTR 

15A3 

BE 

8B 


MEM2 

LBX 


MEMPTR 

GET POINTER- 

15A5 

B6 

90 



LBA 

B 

OF'CNT 

GET COUNT 

15A7 

96 

7E 



LB A 

A 

QF’COBE 


15A9 

A7 

00 



STA 

A 

OfX 


15AB 

08 




INX 




15AC 

BB 

15 

E7 


JSR 


INCCNT 


15AF 

5A 




BEC 

B 



15B0 

27 

13 



BEQ 


MEM3 


15B2 

96 

7F 



LBA 

A 

0P1 


15B4 

A7 

00 



STA 

A 

0, X 


15B6 

08 




INX 




15B7 

BB 

15 

E7 


JSR 


INCCNT 


15BA 

5A 




BEC 

B 



15BB 

27 

08 



BEQ 


MEM3 


15BD 

96 

80 



LBA 

A 

0P2 


15BF 

A7 

00 



STA 

A 

OfX 


15C1 

08 




INX 




15C2 

BB 

15 

E7 


JSR 


INCCNT 


15C5 

BF 

8B 


MEM3 

STX 


MEMPTR 

SAVE PLACE 

15C7 

96 

5A 



LBA 

A 

BATFl-G 

CHECK FCCrFCBrFBB 

15C9 

26 

01 



BNE 


EXTBAT 

IF SO, GO SERVICE 

15CB 

39 



MEM4 

RTS 



BONE 

15CC 

CE 

02 

00 

EXTBAT 

LBX 


♦BYTSTK 


15CF 

BF 

71 



STX 


XTEMP4 

SET BUFFER POINTER 

15D1 

BE 

71 


MEM5 

LBX 


XTEMP4 

GET POINTER- 

15D3 

9C 

87 



CPX 


BYTF’TR 

CHECK EMPTY 

15D5 

27 

F4 



BEQ 


MEM4 

IF SO, BONE 

15D7 

A6 

00 



LBA 

A 

0, X 


15D9 

08 




INX 




15DA 

BF 

71 



STX 


XTEMP4 

ABVANCE PTR ANB SAVE 

15DC 

BE 

8B 



LBX 


MEMPTR 

GET BEST PTR 

15BE 

A7 

00 



STA 

A 

OfX 

PUT BYTE 

15E0 

08 




INX 




15E1 

BF 

8B 



STX 


MEMPTR 

SAVE PLACE 

15E3 

8B 

02 



BSR 


INCCNT 

FIX THE COUNT 
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LOCN 

B1 

B2 B3 






15E5 

20 

EA 


BRA 


MEM5 

DO TILL DONE 

15E7 

96 

9B 

INCCNT 

LDA 

A 

MCOUNT+1 


15E9 

8B 

01 


ADD 

A 

#1 


15EB 

97 

9B 


STA 

A 

MCOUNT+1 


15ED 

96 

9A 


LDA 

A 

MCOUNT 


15EF 

89 

00 


ADC 

A 

*0 


15F1 

97 

9A 


STA 

A 

MCOUNT 

16 BIT INCREMENT 

15F3 

39 



RTS 




15F4 

DE 

A2 

FIXCNT 

LDX 


LASTM 

GET LAST START 

15F6 

96 

9A 


LDA 

A 

MCOUNT 


15F8 

A7 

00 


STA 

A 

0»X 


15FA 

96 

9B 


LDA 

A 

MCOUNT+1 

• 

15FC 

A7 

01 


STA 

A 

1»X 

SET BYTE COUNT 

15FE 

39 



RTS 



DONE 


* 

* 

* 

* 

END 

SYMBOL TABLE t 


ADDPCO 0C88 
ADVPTR 03A6 
ASME4 082B 
BIN2 13BC 
CERR 047A 
CHKLBL 08DE 
CHK2ER 0433 
CLRLBL 0351 
CORDON 0CA8 
DECM2 1363 
DELDON 04D5 
EJSTR 11D1 
ERRHD 054B 
E0AL1A 11E0 
EXTDAT 15CC 
FERROR 091A 
FINDSP 0C4F 
FIN4 052F 
FIXMOD 0D5C 
FIXXX2 0E01 
FND222 0C44 
GAPX 0531 
GETER2 046B 
HASHCT 00A4 
HEXR OCDF 
IMMEDO 0E47 
IMMED5 0E76 
INDEX 0DA3 
INDEX4 ODEO 
LABEL 004F 
LBLBEG 0040 
LINES 0036 
L0AD1 1240 
LSTREC 04F1 


ADDPC1 

0C86 

ASC 

13E7 

ASME5 

0832 

BUFCNT 

00A7 

CHKCOM 

OBAA 

CHKLOP 

1427 

CHK3 

0464 

CNXT 

0496 

COPLBL 

0C8F 

DECM3 

1387 

DIRECT 

0E04 

ENDFLG 

0058 

ERRORS 

00A9 

EVAL1B 

12A1 

EXTEND 

0D3C 

FILTIT 

1114 

FINDS2 

0C50 

FIN5 

0516 

FIXM3 

0D67 

FNDEND 

102D 

FI 

1211 

GENER 

OOBO 

GETSYM 

057A 

HEADER 

1564 

HEX2 

139C 

IMMED1 

0E4E 

IMMED6 

0E73 

INDEXO 

0DF3 

INDEX5 

ODFA 

LABERR 

OBBC 

LBLEND 

0042 

LINPTR 

008D 

LONE 

1393 

LSTSYM 

0575 


ADDPC2 

0C7E 

ASMERR 

07E5 

BCONV 

12C9 

BYTCNT 

00A6 

CHKERR 

0437 

CHKTAP 

04ED 

CKDONE 

0904 

CONDON 

04BF 

CRLF 

07CF 

DECX 

04CF 

EJCHR 

OOOA 

EQU1 

10B9 

ERRPTR 

0085 

EVAL2 

12A9 

EXTENO 

0D43 

FIN 

04D6 

FINDS4 

11FE 

FIN6 

0537 

FIXM4 

0D62 

FNDLBL 

0905 

F2 

1203 

GENOBJ 

14FD 

GOTLBL 

091D 

HERROR 

08B8 

HEX3 

13AA 

IMMED2 

0E67 

INCCNT 

15E7 

INDEX1 

ODBA 

INDEX9 

0DF9 

LABOUT 

0584 

LBLMSK 

0060 

LIST 

OOAE 

LOOP 

084F 

LTEMP 

0075 


ADDPC3 0C72 
ASME2 0821 
BIN 13BA 
BYTPTR 0087 
CHKFRE 08A4 
CHK1 0939 
CKSUM 0061 
CONT 05A5 
DATFLG 005A 
DECXX 1460 
EJECT 1131 
ERRCNT 00A5 
ERRSTK 0100 
EVAL3 12AD 
EXTEN1 0D49 
FINDCR 0C26 
FIN2 0505 
FIX 0CC1 
FIXM5 0D6D 
FNDOPT 091F 
F3 1298 
GETCHR OCAC 
GOTMSG 0664 
HEX 139A 
HEX4 13B9 
IMMED3 0E6E 
INDEC 1348 
INDEX2 ODCB 
INDEOO 0DE7 
LASTM 00A2 
LINBYT 0048 
LNHDX 156F 
LSTERR 0084 
LTWO 1391 


ADD16 OCFA 
ASME3 0824 
BINGO 0962 
BYTSTK 0200 
CHKGEN 14F4 
CHK2 045D 
CLRLAB 0C65 
CONTRL 04B2 
DECM 135B 
DELAY 04C8 
EJFLG 005C 
ERRFLG 0056 
EVAL 11D5 
EVAL4 12BF 
FCCFLG 005B 
FINDSC 11E2 
FIN3 051E 
FIXCNT 15F4 
FIXXX 0E84 
FND10 0908 
GAP OOAA 
GETERR 044D 
HASH 0867 
HEXL OCDB 
IMMED 0E3F 
IMMED4 0E69 
INDEC2 1350 
INDEX3 0DD6 
INITR 1388 
LASTPC 009E 
LINCNT 00A8 
LOAD 1216 
LSTPCM 009C 
LI 1275 





L2 

1278 

MAIN 

0300 

MEMCOD 

1577 

MEM1 

1594 

MESGO 

0687 

MESG3 

06C6 

MESG8 

073C 

MON 

031B 

MSGTBL 

0669 

NOEJT 

119B 

NOLAB 

03A4 

NXTBL3 

0C64 

0BJC03 

14AA 

OBJDON 

1517 

OCT 

13D0 

OPCODE 

007E 

0PMUL2 

12F1 

OPNTBL 

12C1 

OPTEND 

0B6F 

0P2 

0080 

OUTHR 

11A3 

0UT3S 

0CC5 

PARSE 

0B75 

PARSE4 

0C39 

F'ARSIA 

0BC3 

PARS2E 

0C24 

PASONE 

03B1 

PASS13 

03D8 

PASS2X 

0401 

PCRLF 

07BA 

PEVAL 

0BF2 

PPAG5 

117F 

F'RTERR 

0651 

PRTIND 

OSCE 

PRTMAR 

1146 

PRTS1 

0644 

PRT3 

063C 

F’UTLBL 

08A2 

P2ERR3 

0083 

QTEMF* 

007B 

REHASH 

087F 

SETBIT 

039C 

SHELL1 

13FC 

SHORT 

0422 

SRCEND 

0046 

SYMGEN 

055E 

TAF’EOF 

04C4 

TFIXMD 

0D59 

TYPE10 

0F7E 

TYPE15 

10B0 

TYPE2A 

0D28 

TYPE4 

0D54 

TYPE7C 

0D9C 

TYPE8C 

0ED6 

TYPE8H 

OFOD 

TYPE9 

0F42 

TYP10A 

0F8A 

TYP11C 

0FE9 

TYP13A 

10A1 


L3 1283 
MARDON 114C 
MEMGEN 0-414 
MEM2 15A3 
MESG1 069D 
MESG4 06DE 
MESG9 0753 
MOVE 150U 
NAM1 10F9 
NOERHD 0549 
NOMATL. 0942 
OBJADR OOAO 
0BJC04 14A8 
OBJGEN 040D 
0CT1 13D2 
ORBIV 130F 
QPMUL3 12FF 
OPSERR 07D6 
OPTERR 094D 
ORDOK 1466 
OUTHXS OCCC 
F'AGENO OOAC 
PARSEO 0B7F 
PARSES 0C38 
PARSIB 0BD1 
PARS2F OBFF 
PASS 008F 
PASS2 03E0 
PASTHR 05BB 
PCRLF1 07C8 
PLOOP 07A7 
PPAG6 116F 
PRTFLG 005E 
PRUNE 05D3 
PRTMES 04EA 
PRTS2 0650 
PRT4 063F 
P1INIT 0326 
P2INIT 036F 
QTEMP2 0079 
RNDM 0091 
SETGAP 1403 
SHELL2 1401 
SORT 141D 
SRCPTR 004D 
SYMHD 0538 
TAPEON 04C0 
TITLE 00C6 
TYPE11 OFBD 
TYPE16 10DD 
TYPE2B 0B2C 
TYPES 0B51 
TYPE7D 0B96 
TYPE8D 0ED4 
TYPE8I 0F2C 
TYPE9A 0F62 
TYP10B 0F9E 
TYP12A 1005 
TYP15A 10B4 


L4 1287 
MATCH1 0952 
MEMOBJ 0049 
MEM3 15C5 
MESG10 0778 
MESG5 06F9 
MIX2 0882 
MOVELP 143A 
NAM2 1110 
NOERR 0475 
NOPRT 05AA 
OBJBUF 00B4 
0BJC05 14B2 
OBJINT 0062 
OFFLOP 1471 
OPDIOl 1325 
OPN 0063 
OPSUB 12DD 
OPTLST 1041 
OUTCH 0320 
OUTS 031E 
PAGER 00B1 
PARSE1 OBAE 
PARSE6 0C36 
PARS2A 0C04 
PARS2H 0C3C 
PASS1 03B9 
PASS2A 03E8 
PASTWO 03D9 
PCRLF2 07CC 
PPAG2 1174 
PPP 11A9 
PRTINA 05CF 
PRTINF 05C1 
F'RTPC 0611 
F’RTl 0636 
F'STR 07B2 
P2B0N 04B1 
P2IN3 03B0 
GTEMP3 0077 
SAME 1481 
SETTL 035D 
SHELLS 1458 
SF'CL 1351 
SRTDON 1480 
SYMPRT 05B8 
TAPOUT 0323 
TOOMAN 0836 
TYPE12 OFED 
TYPE17 10E9 
TYPE2D 0D34 
TYPE6 0D7B 
TYPE8 0E87 
TYPE8E 0EC4 
TYPE8J 0F38 
TYPE9B 0F68 
TYF'IOC 0F99 
TYP12B 1019 
TYP15C 10D7 


L5 128B 
MATFLG 0057 
MEMORY 00B3 
MEM4 15CB 
MESG11 078E 
MESG6 0716 
MIX3 089F 
MOOF’TR 05AD 
NAM3 11IE 
N0ERR2 049D 
NXTBLK 0C5B 
OBJCOD 1489 
0BJC06 14D2 
OBJLP 1545 
OPADD 12B3 
0PDIV3 1337 
OPNEND 1083 
OF'TABL 096B 
OPTPTR 0094 
OUTHEX OCDO 
OUTSZ 0CC9 
PAGFLG 005F 
PARSE2 0BD4 
PARSE7 0C33 
PARS2B 0C10 
PARS2J 0C1D 
PASSU 03C7 
PASS2B 03FA 
PC 004B 
PCTRL 04B6 
PPAG3 1196 
F'RFLG 0055 
PRTINB 05D5 
PRTING 05F8 
F'RTREC 1518 
PRT2 0639 
PTNXT 0660 
P2ERR1 0081 
P3FLG 005D 
RANDOM 084B 
SAVEPL 1515 
SETO 0512 
SHELL6 146D 
SPSAVE 0067 
SUB16 0CE8 
TAPBYT 1550 
TEMP 007D 
TYPERR OFEA 
TYPE13 1089 
TYPE18 111F 
TYPE3 0D35 
TYPE7 0D88 
TYPE8A 0EB1 
TYPE8F 0EF1 
TYPE8K 0F34 
TYPE9C 0F4E 
TYF’llA 0FD9 
TYP12C 1009 
TYP3R 0D4C 


L6 

1290 

MCOUNT 

009A 

MEMPTR 

008B 

MEM5 

15D1 

MESG2 

06AE 

MESG7 

072F 

MODFY 

OOAB 

MSGHD 

0681 

NDIR 

0E38 

N0ERR4 

04A4 

NXTBL2 

0C5C 

0BJC01 

1499 

0BJC07 

14DD 

OBJF'TR 

0089 

OPCNT 

0090 

OPMUL 

12E7 

OPNF'TR 

0096 

OF'TDON 

1040 

0P1 

007F 

OUTHL 

119D 

0UT2S 

0CC7 

PARFF2 

0C4B 

PARSE3 

0C2D 

F'ARSOA 

0B77 

PARS2D 

0C11 

PASDON 

1477 

PASS12 

03CE 

PASS2C 

041B 

PCFLAG 

0059 

PDATA 

07 AB 

PPAG4 

1183 

F’RTDAT 

05FF 

PRTINC 

05D7 

F'RTIT 

0CD8 

PRTSRC 

0642 

PRT2ER 

048F 

PUT IT 

08BB 

P2ERR2 

0082 

P3INIT 

036F 

RECORD 

151C 

SAVF’TR 

0098 

SHELL 

13F0 

SHIFTL 

150B 

SRCBEG 

0044 

SYMBOL 

OOAF 

TAPE 

00B2 

TERM 

0064 

TYPE1 

0D03 

TYPE14 

10A2 

TYPE2 

0D06 

TYPE3A 

0D39 

TYPE7A 

0D8D 

TYPE8B 

OEBE 

TYPE8G 

0F06 

TYPE8L 

0F3A 

TYPE9D 

0F5D 

TYP11B 

0FE3 

TYP12D 

0FF8 

XLOOP 

04CC 






XSAVE 0065 XTEMP 0069 
XTEMP4 0071 XTEHP5 0073 


OBJECT code: 

SI 13 0300 8E 

AO 

7F 

BD 

03 

26 

SI 

13 

0310 

03 

26 

BD 

03 

B1 

BD 

SI 

13 

0320 

7E 

El 

D1 

7E 

El 

D1 

SI 

13 

0330 

40 

97 

A8 

4F 

97 

B1 

SI 

13 

0340 

97 

B3 

97 

58 

97 

A9 

SI 

13 

0350 

40 

6F 

00 

08 

9C 

42 

SI 

13 

0360 

8C 

00 

E6 

26 

F8 

86 

SI 

13 

0370 

FF 

97 

62 

97 

5D 

CE 

SI 

13 

0380 

FF 

FF 

DF 

9C 

DF 

9E 

SI 

13 

0390 

00 

B4 

DF 

89 

DE 

49 

SI 

13 

03A0 

8A 

80 

A7 

00 

C6 

08 

SI 

13 

03B0 

39 

9F 

67 

DE 

44 

09 

SI 

13 

03C0 

96 

4F 

27 

03 

BD 

08 

SI 

13 

03D0 

96 

58 

26 

04 

9C 

46 

SI 

13 

03E0 

DF 

4D 

DE 

4B 

DF 

6D 

SI 

13 

03F0 

09 

BD 

09 

05 

A6 

00 

SI 

13 

0400 

IF 

96 

90 

27 

16 

96 

SI 

13 

0410 

96 

5D 

27 

07 

96 

B3 

SI 

13 

0420 

04 

A4 

96 

5E 

27 

OD 

SI 

13 

0430 

32 

97 

90 

86 

FF 

97 

SI 

13 

0440 

4D 

26 

32 

96 

AE 

26 

SI 

13 

0450 

00 

A5 

E6 

02 

27 

15 

SI 

13 

0460 

03 

7F 

00 

82 

D1 

83 

SI 

13 

0470 

BD 

06 

51 

20 

C2 

CE 

SI 

13 

0480 

15 

96 

56 

27 

OA 

96 

SI 

13 

0490 

77 

E6 

00 

BD 

06 

51 

SI 

13 

04A0 

03 

BD 

11 

31 

DE 

6F 

SI 

13 

04B0 

EO 

39 

C6 

04 

27 

09 

SI 

13 

04C0 

00 

00 

00 

00 

00 

00 

SI 

13 

04D0 

26 

FD 

5A 

26 

F7 

39 

SI 

13 

04E0 

CE 

05 

49 

96 

A9 

27 

SI 

13 

04F0 

14 

BD 

15 

18 

86 

53 

SI 

13 

0500 

CE 

04 

C4 

8D 

AD 

96 

SI 

13 

0510 

DE 

8B 

6F 

00 

6F 

01 

SI 

13 

0520 

BA 

96 

B1 

27 

OA 

96 

SI 

13 

0530 

04 

BD 

07 

BA 

5A 

26 

SI 

13 

0540 

4C 

20 

54 

41 

42 

4C 

SI 

13 

0550 

52 

28 

53 

29 

20 

44 

SI 

13 

0560 

27 

BC 

C6 

04 

BD 

OF 

SI 

13 

0570 

DE 

40 

09 

DF 

69 

BD 

SI 

13 

0580 

29 

37 

C6 

06 

A6 

00 

SI 

13 

0590 

A6 

00 

BD 

OC 

DO 

08 

SI 

13 

OSAO 

33 

9C 

42 

27 

13 

5A 

SI 

13 

05B0 

FC 

33 

DF 

69 

9C 

42 

SI 

13 

05C0 

D9 

8D 

3C 

8 Ei 

7D 

CE 

SI 

13 

05D0 

BO 

27 

FB 

96 

90 

DE 

SI 

13 

05E0 

90 

DE 

71 

9C 

87 

27 

SI 

13 

05F0 

7C 

00 

90 

A6 

00 

97 

SI 

13 

0600 

07 

BA 

BD 

03 

IE 

96 

SI 

13 

0610 

25 

96 

6D 

BD 

OC 

DO 

SI 

13 

0620 

7E 

BD 

OC 

CC 

5A 

27 

SI 

13 

0630 

80 

BD 

OC 

CC 

20 

09 


006B XTEMP2 006D XTEMP3 


B1 

BD 

03 

6F 

BD 

03 

D9 

BD 

60 

BD 

05 

BB 

7E 

EO 

DO 

86 

20 

BF 

97 

AE 

97 

BO 

97 

AF 

97 

59 

22 

97 

AD 

97 

A5 

97 

56 

97 

B2 

AA 

97 

60 

CE 

01 

00 

DF 

85 

DE 

23 

CE 

00 

C6 

86 

20 

A7 

00 

08 

FC 

00 

CE 

00 

00 

DF 

4B 

39 

86 

11 

DF 

85 

CE 

00 

00 

DF 

4B 

CE 

94 

A7 

97 

9A 

97 

9B 

97 

58 

CE 

C6 

DF 

A2 

DE 

40 

A6 

00 

27 

04 

3C 

42 

27 

05 

5A 

26 

F8 

20 

EC 

34 

8F 

DF 

4D 

BD 

OB 

75 

DF 

6F 

OA 

55 

26 

03 

BD 

OC 

44 

DE 

6F 

45 

39 

DE 

44 

09 

86 

01 

97 

8F 

07 

BD 

OB 

75 

DF 

6F 

96 

4F 

27 

A6 

A7 

00 

96 

55 

26 

03 

BD 

09 

FB 

04 

96 

B2 

27 

07 

BD 

14 

89 

78 

BD 

15 

77 

96 

5D 

26 

03 

7E 

61 

27 

09 

96 

90 

36 

BD 

05 

Cl 

A5 

A5 

27 

3A 

DE 

85 

EE 

00 

9C 

64 

05 

FF 

BD 

06 
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6D 

DE 

69 

A6 

00 

08 

5D 

SI 

13 

142C 

DF 

69 

DE 

6D 

A1 

00 

27 

4D 

23 

30 

C6 

08 

DE 

7B 

Df 

69 

42 

SI 

13 

143C 

37 

A6 

00 

DE 

79 

E6 

00 

A7 

00 

08 

DF 

79 

DE 

69 

E7 

00 

4D 

SI 

13 

144C 

08 

33 

5A 

26 

E9 

96 

7D 

26 

03 

73 

00 

7D 

DE 

7B 

9C 

40 

87 

SI 

13 

145C 

27 

08 

C 6 

08 

09 

5A 

26 

FC 

20 

9D 

96 

7D 

27 

03 

7F 

00 

81 

SI 

13 

146C 

7D 

DE 

77 

C6 

08 

08 

5A 

26 

FC 

20 

8A 

96 

AA 

81 

08 

27 

AE 

SI 

13 

147C 

03 

7E 

13 

FC 

39 

08 

DF 

6D 

5A 

26 

AO 

20 

DD 

96 

62 

27 

03 

SI 

13 

148C 

OC 

CE 

04 

CO 

BD 

04 

B2 

BD 

04 

C8 

7F 

00 

62 

DE 

6D 

9C 

EA 

SI 

13 

149C 

9E 

07 

DE 

4B 

DF 

9E 

06 

27 

03 

BD 

15 

18 

96 

90 

D6 

A7 

34 

SI 

13 

14AC 

26 

04 

DE 

6 Ei 

DF 

AO 

DE 

89 

D6 

7E 

E7 

00 

08 

7C 

00 

A7 

6B 

SI 

13 

14BC 

4A 

27 

13 

D6 

7F 

E7 

00 

08 

7C 

00 

A7 

4A 

27 

08 

D6 

80 

62 

SI 

13 

14CC 

E7 

00 

08 

7C 

00 

A7 

8D 

20 

96 

5A 

27 

3F 

CE 

02 

00 

DF 

48 

SI 

13 

14DC 

71 

DE 

71 

9C 

87 

27 

34 

A6 

00 

08 

DF 

71 

DE 

89 

A7 

00 

B2 

SI 

13 

14EC 

08 

7C 

00 

A7 

8D 

02 

20 

E9 

DF 

89 

96 

A7 

81 

OF 

22 

01 

D1 








SI 

13 

14FC 

39 

36 

86 

10 

BD 

15 

SI 

13 

150C 

08 

E6 

10 

E7 

00 

08 

SI 

13 

151C 

36 

7F 

00 

A7 

CE 

00 

SI 

13 

152C 

23 

96 

AO 

BD 

15 

50 

SI 

13 

153C 

96 

AO 

89 

00 

97 

AO 

SI 

13 

154C 

F8 

96 

61 

43 

36 

9B 

SI 

13 

155C 

23 

32 

BD 

OC 

DF 

7E 

SI 

13 

156C 

7E 

04 

B6 

OD 

OA 

00 

SI 

13 

157C 

DE 

4B 

DF 

9C 

06 

27 

SI 

13 

158C 

03 

9C 

49 

27 

03 

BD 

SI 

13 

159C 

4F 

97 

9A 

97 

9B 

DF 

SI 

13 

15AC 

BD 

15 

E7 

5A 

27 

13 

SI 

13 

15BC 

08 

96 

80 

A7 

00 

08 

SI 

13 

15CC 

CE 

02 

00 

DF 

71 

DE 

SI 

13 

15DC 

DE 

8B 

A7 

00 

08 

DF 

SI 

13 

15EC 

9B 

96 

9A 

89 

00 

97 

SI 

06 

15FC 

A7 

01 

39 

07 




s? 



32 CE 00 B4 80 10 97 A7 27 40 
26 F8 DF 89 39 96 A7 27 FB 76 
DF 89 8D 3D 32 36 SB 03 8D 28 
A1 8D 1A 32 36 9B A1 97 A1 76 
BE 89 A6 00 8D 07 08 5A 26 49 
97 61 32 36 BD 0C DB BD 03 63 
23 CE 15 6F C6 08 7F 00 61 DA 
00 00 53 31 DE 6D 9C 9C 07 OE 
DE 8B 96 6D A7 02 96 6E A7 AA 
F4 DE 8B DF A2 08 08 08 08 69 
DE 8B D6 90 96 7E A7 00 08 8D 
7F A7 00 08 BD 15 E7 5A 27 EO 
15 E7 DF 8B 96 5A 26 01 39 DB 
9C 87 27 F4 A6 00 08 DF 71 60 
8D 02 20 EA 96 9B 8B 01 97 8C 
39 DE A2 96 9A A7 00 96 9B A5 


1C 

4A 

B4 

96 

33 

61 

03 

00 

20 

15 

8B 

96 

BD 

71 

8B 

9A 
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* TSC EDITOR-ASSEMBLER CORESIDENT LINK 


* COPVRIGHT <C) 1977 BV 

+ TECHNICAL SYSTEMS CONSULTANTS, INC. 

* P. 0. BOX 2574; W. LAFAYETTE, IN 47906 

* <317> 742-7509 


* THE PURPOSE OF THIS PROGRAM IS TO SETUP THE NECESSARY 

* POINTERS IN THE TSC ASSEMBLER AND TO SAVE CERTAIN 

* POINTERS OF THE TSC EDITOR TO ALLOW THEM TO RUN CO- 

* RESIDENT. WHEN IN THE EDITOR AND READY TO ASSEMBLE 

+ YOUR FILE, TYPE 'LAS' FOR 'LINK ASSEMBLER'. YOU WILL 

* BE ASKED 'LISTING OR TAPE?'. AN 'L' WILL GIVE YOU A 

* LISTING WHILE A 'T' WILL PRODUCE A MIKBUG FORMAT TAPE. 

* WHEN THE ASSEMBLY IS COMPLETE, CONTROL WILL RETURN TO 

* THE EDITOR. USING LAS DELETES THE LOG COMMAND FROM THE 

* EDITOR. YOU MAY STILL USE STOP TO EXIT. THIS LINK 

* PROGRAM ASSUMES THE 'MEM' OPTION OF THE ASSEMBLER WILL 

* NOT BE USED. IF YOU DO WISH TO USE IT, EXIT THE PROGRAM 

* WHEN ASKED 'LISTING OR TRPE?' AND SET UP THE MEM OPTION 

* POINTER. THEN RESUME EXECUTION AT $150F IN THE LINK 

* COR $2A0F AFTER RELOCATION). THIS PROGRAM IS SETUP FOR 

* A 16K SYSTEM. IF YOU HAVE A LARGER SYSTEM, CHANGE 

* MEMEND IN THE EDITOR <$0212 BEFORE RELOCATION; $1712 

* AFTER) AND SETUP AN ADEQUATE SYMBOL TABLE BY CHANGING 
*'THE TABLE BEGIN POINTER AT $14BD <0R $29BD AFTER RELO- 

* CATION) AND THE TABLE END POINTER AT $14BF <0R $29BF 
AFTER RELOCATION). BE SURE THE NUMBER OF BYTES IN THE 

* TABLE IS A MULTIPLE OF 8. 


* CHANGES TO EDITOR 



0212 


ORG $0212 

FDB $3AFF SET MEMORY END 


028E 4C 
028F 41 53 
0291 00' 
0292 14 D3 


ORG $02SE 

FCC: 'LAS' 


PUT LAS IN COMMAND TABLE? 


FCB 0 

FDB LAS 


0358 

0358 CE 15 59 


ORG $0358 

LDX 4BEGPT2 SETUP NEW BEGIN PTR 


* EXTERNAL EQUATES 


1491 

0326 

03B1 

036F 

03D9 

036F 


ORG $1491 


P1INIT EQU $0326 
PASONE EQU $0361 
P2INIT EQU $036F 
PASTWO EQU $03D9 
P3INIT EQU $036F 











L 
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0 


05BB 

0B40 

0042 

0044 

0046 

0048 

0097 

0099 

005E 

0060 

006R 

008F 

00BB 

0058 

0096 

0040 

0C62 

0203 

0206 

0483 


1491 

1493 

1495 

1497 

14BC 

14BD 

14BF 

14C1 

14C2 

14C4 

14C6 

14C8 

14CA 

14CC 

14CE 

14D0 

14D2 


PfiSTHR 

LBLBEG 

LBLEND 

SRCBEG 

SRCEND 

LINBVT 

FlLBEG 

FILEND 

20NE1 

20NE2 

NUMFLG 

INZFLG 

BUFFER 

SPCPT1 

HEDCNT 

TEMP 

MAKSP5 

RESTRT 

INCH 

PSTRNG 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


♦05BP 

♦0040 

♦0042 

♦0044 

♦0046 

♦0048 

♦009? 

♦0099 

♦005E 

♦0068 

♦006Fi 

♦008F 

♦00BE 

♦0058 

♦0096 

♦0040 

♦0C62 

♦0203 

♦0206 

♦0483 


♦ TEMPORARY STORAGE 


[ 5 


36 00 t'l Q 
3F FF Hrrp 
4C 

49 53 
54 49 
4E 47 
20 4F 
52 20 
54 41 

50 45 
3F 28 
04 


20NE1X 

Z0NE2X 

NMFG2 

TMPEND 

TMPBEG 

LBLBG2 

LBLED2 

LSTORT 


RMB 

RMB 

RMB 

RMB 

RMB 

FDB 

FDB 

FCC 


2 

2 

2 

37 

1 

♦3B00 

♦3FFF 


LABEL TABLE BEGIN ADDR. 
LABEL TABLE END ADDR. 


'LISTING OR TAPE? ' 


FCB 


* ENTRY POINT UPON EXITING THE EDITOR 


f 


~\ 


14D3 

DE 

97 LAS 

LDX 


FlLBEG 

GET FILE BEGIN 

14D5 

9C 

99 

CPX 


FILEND 

ANY SOURCE IN FILE? 

14D7 

27 

7C 

BEG 


RSTART 

IF NOT> BACK TO EDITOR 

14D9 

DF 

44 

STX 


SRCBEG 

SET SOURCE BEGIN 

14DB 

DE 

99 

LDX 


FILEND 

SET SOURCE END 

14DD 

09 


DEX 




14DE 

DF 

46 

STX 


SRCEND 

' 

14E0 

86 

03 

LDA 

A 

#3 

SET LINE BYTE COUNT 

14E2 

97 

48 

STA 

A 

LINBVT 


14E4 

CE 

00 BB 

LDX 


♦BUFFER 

SAVE EDITOR DATA 

14E7 

DF 

58 

STX 


SPCPT1 
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14E9 

CE 

00 

96 


LDX 

#HEDCNT 


14EC 

DF 

40 



STX 

TEMP 


14EE 

CE 

14 

BC 


LDX 

4TMPBEG 


14F1 

BD 

0C 

62 


JSR 

MAKSP5 


14F4 

DE 

5E 



LDX 

ZONE1 

SfiVE ZONE1 

14F6 

FF 

14 

91 


STX 

ZONE1X 


14F9 

DE 

60 



LDX 

Z0NE2 

SfiVE Z0NE2 

14FB 

FF 

14 

93 


STX 

Z0NE2X 


14FE 

DE 

6ft 



LDX 

NUMPL.G 

SfiVE NUMBER & VERIFY 

1590 

FF 

14 

95 


STX 

NMFG2 

SET LABEL TABLE BEGIN 

1503 

FE 

14 

8D 


LDX 

LBLBG2 

1506 

DF 

40 



STX 

LBLSEG 


1508 

FE 

14 

BF 


LDX 

LBLED2 

SET LABEL TRBLE END 

150B 

DF 

42 



STX 

LBLEND 

DO PASS 1 INITIRLIZE 

150D 

BD 

03 

26 


JSR 

PllNlT 

1510 

BD 

03 

B1 


JSR 

PftSONE 

DO PASS 1 

1513 

CE 

14 

Cl 


LDX 

4LST0RT 

ASK "LISTING OR TAPE?" 

1516 

BD 

04 

83 


JSR 

PSTRNG 


1519 

FE 

14 

BF 


LDX 

LBLED2 

RESET LABEL END 

151C 

DF 

42 



STX 

LBLEND 


151E 

BD 

82 

06 


JSR 

INCH 

GET RESPONSE 

1521 

81 

54 



CMP ft 

#"T 


1523 

27 

08 



.BEQ 

TfiPE 

IF LISTING, DO PASS 2 

1525 

BD 

03 

6F 


JSR 

P2INIT 

1528 

BD 

03 

D9 


JSR 

PftSTWO 


152B 

20 

06 



BRfl 

EDITOR 

IF TAPE, DO PASS 3 

152D 

BD 

03 

6F 

TfiPE 

JSR 

P3INIT 

1530 

BD 

05 

BB 


JSR 

PfiSTHR 






* REENTRY POINT ON EXIT 

FROM ASSEMBLER 

1533 

4F 



EDITOR 

CLR ft 


CLEAR FLAG 

1534 

97 

8F 



STP. ft 

INZFLG 

RESTORE EDITOR DATA 

1536 

CE 

14 

BC 


LDX 

•TMPBEG 

1539 

DF 

58 



STX 

SPCPT1 


153B 

CE 

14 

97 


LDX 

iTNPEND 


153E 

DF 

40 



STX 

TEMP 


1540 

CE 

00 

BB 


LDX 

4BUFFER 


1543 

BD 

0C 

62 


JSR 

MRKSP5 


1546 

FE 

14 

91 


LDX 

ZONE1X 

RESTORE ZONE1 

1549 

DF 

5E 



STX 

ZONE! 


154B 

FE 

14 

93 


LDX 

Z0NE2X 

RESTORE ZONE2 

154E 

DF 

60 



STX 

ZONES 

RESTORE NUMBER & VERIFY 

1550 

FE 

14 

95 


LDX 

NMFG2 

1553 

DF 

6ft 



STX 

NUMFLG 

JUMP INTO EDITOR 

1555 

7E 

02 

03 

RSTfiRT 

JMP 

RESTRT 


1558 

0D 

FCB 

$9D 

. 

1559 


BEGPT2 EQU 

* 

START OF FILESPACE 



END 




NO 

ERROR<S> DETECTED' 










■ 
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SYMBOL TABLE: 


BECPT2 1533 
HEDCNT B096 
LBLBG2 14BD 
MAKSP5 0C62 
P3INIT 036F 
RESTRT 0203 
TAPE v - 1320 
Z0NE1X 1491 


BUFFER 00BB 
INCH 0206 
LBLED2 14BF 
NMFG2 1495 
PASONE .03B1 
RSTART 1555 
TEMP 0040 
Z0NE2 0060 


EDITOR 1533 
INZFLG 008F 
LBLEND 0042 
NUMFLG 006A 
PASTHR 05BB 
SRCPT1 0059 
TMPBEG 14BC 
Z0NE2X 1493 


FILBEG 009? 
LAS 14D3 
LINBVT 0048 
P1INIT 0326 
PASTWO 0309 
SRCBEG 0044 
TMPEND 149? 


FILENO 0099 
LBLBEG 0040 
LSTORT 14C1 
P2INIT 036F 
PSTRNG 0483 
SRCENO 0046 
Z0NE1 005E 




OBJECT CO0E: 

• 

SI 03 0212 3A FF AO 

SI 09 028E 4C 41 53 00 14 03 9F 

SI 06 0338 CE 13 39 62 

SI 13 1490 38 00 3F FF 4C 49 53 34 49 4E 47 20 4F 32 20 34 53 

SI 13 14C0 41 50 45 3F 20 04 DE 97 9C 99 27 7C OF 44 OE 99 EB 

SI 13 1400 09 OF 46 86 03 97 48 CE 00 BB OF 38 CE 00 96 OF 62 

SI 13 14E0 40 CE 14 BC’BD 0C 62 DE 5E FF 14 91 DE 60 FF 14 B1 
SI 13 14FD 93 DE 6fl FF 14 95 FE 14 BD DF 40 FE 14 BF DF 42 78 

SI 13 1500 BO 03 26 BD 03 B1 CE 14 Cl BD 04 83 FE 14 BF OF DC 

SI 13 1310 42 BD 02 06 81 34 27 08 BD 03 6F BD 03 09 20 06 Cl 

SI 13 1320 BO 03 6F BD 05 BB 4F 9? 8F CE 14 BC DF 38 CE 14 02 

SI 13 1530 97 DF 40 CE 00 BB BD 0C 62 FE 14 91 DF 3E FE 14 3E 

SI 0F 1540 93 DF 60 FE 14 95 DF 6A 7E 02 83 00 3C 








/ 
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THE TSC 6800 RELOCHTOR 

SI_& 8 — £ S 


Copyright <C> 1977 by 
Technical Systems Consultants* Inc. 
Box 2574; • W. Lafayette* IN 47906 
<317) 742-7509 


The TSC 6800 RELOCRTOR is a very useful tool for any system 
owner* especially those who do assembly language programming, 
can move blocks of information from one location in RAM to 
another. It can also relocate machine code programs from one 
place in RAM to another or from tape into RAM. Many variations 
are possible as you will see from using the RELOCRTOR. The 

program is very easy to use as it prompts the user for all the 
information it needs. This manual explains the prompts and what 
they require in response. Included are 2 example relocations and 
the information necessary to relocate other TSC software. Also 
included is a co-resident link for the TSC TEXT EDITING SYSTEM 
and the TSC MNEMONIC ASSEMBLER. 


First of all* here are some hints on how to respond to computer 
prompts. When asked a question by the computer* in general type 
a 'Y' for ues or an 'N' for no. When entering addresses* it is 
not necessary to type leading zeros. A return must be typed to 
terminate the address. Note that only the last 4 digits typed 
are accepted. Thus if you detect an error in typing before 
hitting a return* you can type a few zeros and then type the 
correct address. 


WHRT THE PROMPTS HERN: 

1. PRESENT PROGRAM/ BEGIN ADDRESS? . . . Hexad*cit«al address of 

the first byte to be relocated. 

2. PRESENT PROGRAM; END ADDRESS? . . Hexadecimal address of the 

last byte to be relocated.--- 

3. MOVE TO? . . . Hexadecimal address of the location to which 

you are moving the present program. 

4 . FIX REFERENCES? . . . Typing an 'N' will cause the program 

delimited in steps 1 and 2 above to be moved exactly as 
is* byte for byte* to the location specified in step 3 
above. You will then exit the RELOCATOR. A 'Y' will 
allow the program to be relocated* fixing any extended 
addressing referonces that require a change. For a 
further description* read the section titled FIXING 
REFERENCES'. 
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5. LORD FROM TRPE? . . . Type an 'N' if the program you are 

relocating is in RAM If you are relocating directly 

. from tape., type a 'V' The program will go into a load 

mode; much as if you had typed an ' L ' into a MIKBUG 
monitor. If there is an error during loading; you will 
be prompted 'LORD ERROR! TRV AGAIN?'. Typing a 'V' at 
this point will put you back into the load mode. Rn 

'N' will cause an exit from the relocator program. If 

there are no load errors- upon receiving an 'S3' the 
computer will report; ' LOAD COMPLETED. ' fit this 

point the RELOCATOP will pause until you type a space. 

6. DRTR BLOCKS? ... If the program you are relocating is made 

of executable code only. +ype an 'N'. If there are 
blocks of data; print strings or etc. ; type a 'V'. Vou 

will then be asked for ’'BEGIN ADDRESS' and 'END 
ADDRESS' for as many blocks as you wish to enter. 
THESE BLOCKS MUST BE ENTERED IN ORDER. That is; the 
block with the lowest starting address must come first; 
the second lowest starting address comes next; and so 
on. To end the entering process; enter an 'FFFF' as 
the begin address of a block For a more complete 
description of what is considered a 'data block;' see 
the section titled 'DATA BLOCKS' 

. NOTE: These addresses are p>laced on a stack beginning 

at the end of the RELOCATOR <S06AD>. Be sure you have 
enough RAM there for the number of blocks you enter! 

7 . ALTER RANGE? . . . The 'range' is initially set to the 

beginning and the end of the program you are moving. 
This means that any JMP; JSR or other extended address 

instruction within that range will have an offset added 
to its reference (End and 3rd bytes> when relocated. 
Any extended instruction outside the range will be 
moved exactly as is; thus allowing monitor calls; 

external routine calls; etc. to be properly relocated. 
If you want the range left as is; type an 'N'. If you 

wish to change it.- type a 'V'. Vou will then be asked 

for the beginning and ending addresses of the new 

range. 

8. FIX FDB'S? ... Rn FDB is a pseudo-op in standard 6800 

assemblers. Its function is to define £ bytes of RAM 

to be some specific value. If there are no FDB's in 
your program; type an N' and you are finished. If 

there are FDB's which are used to set up constants or 

data as opposed to addresses.; they should not be 

changed; so type an 'N' in this case also. A common 
use for FDB's is to setup addresses for jump tables; 
command tables- etc. If your program has FDB's which 
setup addresses* but all those addresses are outside 

the range used for relocation- type an 'N' as they 
should not be altered. If the addresses are within the 
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range, you have •two choices: 

<1> If the locations of the FDB's themselves are within 
range, type a 'V'. 

<2) If the locations of the FDB's themselves are 
outside the range, type an '0' or any other character. 

Now you will be asked for the address of the FDB 
itself. Von may enter as many FDB's as you like and 
they need not be in any order. When finished, type an 
'FFFF' as an address to stop the input mode. 

9. RELOCATION COMPLETED! ! . . Self-explanatory! 


LORDING FROM TAPE: 

The TSC 6800 RELOCRTOR has its own tape load routine which will 
read Motorola tlikbug format tapes. Rs each record is read, an 
offset is added to- the record's loading address if that address 
is within the range of the prcv.VA. When the LORD subroutine is 
called, the first thing it doc- s turn on the reader control bit 
of the Mikbug control PIR. Next a string of control characters 
is sent out. The string is called TRPEON <at location $05RF) and 
is presently set -to four nulls. If your tape system requires 
some special control characters, you may patch them into this 
string. DO NOT remove the '4' at the end, however. Similarly 
when the tape is completely loaded or when an error is received, 
the reader control bit of the Mikbug control PIR is turned off. 
Then a string called TRPOFF Cat location $05B4) is sent out. 
TRPOFF is currently set to four nulls, but you may replace them 
with any control characters your tape system requires. Again, DO 
NOT remove the '4' at the end of the string. 

Note that the LORD routine is written as a subroutine and may 
therefore be called from another program if desired. Before 
calling it, however, you must setup an appropriate OLDPTR 
C$0213), OBJEND C$0217), 0FF3TL CS021D), and OFFSTR CS021E). 
These would qenerally be set to $0000, $FFFF, $00 and $00 for a 
normal load operation. 


FIXING REFERENCES: 

It is not usually possible to directly mowe a- program from one 
location in memory to another due to the extended references <tho 
full 2 byte addresses in 3 byte instructions). For example* if 
you haoe an instruction which says JUMP to $1012* when the 
program is mowed up by hex one hundred bytes it cannot stay the 
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same but must be changed to JUMP to $"1112. This is what is meant 
by 'fixing references. ' The TSC 63U0 RELOCRTOR searches thru the 
instructions as they are moved and any extended references are 
singled out. These extended addresses are then compared to the 
range begin and end and if inside the range, the proper offset is 
added to the address. finy references +o outside the range are 
left unchanged so that jumps to external routines, calls to 
monitor routines, etc. will be properly relocated. 


DATA BLOCKS: 

Almost every program has areas which contain some type of data as 
opposed to executable code. When relocating, we must know where 
these blocks are for if we did not, there would be no way of 

knowing what was data and what was instructions. The 
instructions must have their extended references < the 2nd and 3rd 
bytes of 3 byte instructions> adjusted The data must be 
transferred as is, byte for by+e. This is the reason for 

specifying DATA BLOCKS. All bytes within the begin and end 
addresses specified (inclusive? will be relocated exactly as they 
are. 

How do you know what should be specified as a 'DATA BLOCK'? If 

you have a source listing, it is generally quite easy. Any code 

generated by an RMB, FCB, FCC or FDB should be considered data. 
That's usually all there is to if Of course if you wanted, 
instructions could be placed in a DATA BLOCK which would cause 
them to be relocated as is without fixing their references. 
Sometimes you may need to directly move a 3 byte immediate 
r instruction. See the section titled '3 BVTE IMMEDIATE 
INSTRUCTIONS' for further details. 

If you don't have a source listing, finding the data blocks 
becomes more of a problem. One solution is to put the object 
code thru a disassembler and then search out all data. Study the 
example relocations included for more insight. 


3 BYTE IMMEDIATE INSTRUCTIONS: 


There is one type of instruction which can cause problems for a 
relocator That being a 3 byte immediate instruction of which 
there are three in the 6800 microprocessor 

LOAD INDEX REGISTER IMMEDIATE <*CE> 

LOAD STACK POINTER IMMEDIATE <S8E? 

COMPARE INDEX REGISTER IMMEDIATE <#8C> 

In most cases the immediate bytes are an address. If that 
address is in range, it will be offset, otherwise it will be 
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directly relocated. This is the way it should be in almost all 
instances. Vou must keep an eye on the LDS commands however. 

one will say LDS immediate with an address outside the 
program* because you are setting up an external stack. Thus the 
stack will remain in the same place even though the program has 
been mowed. If the stack is still out of the way* you hawe no 
problem* but it is something to look out for. 

Another problem i;. in loading data into the index register or 
comparing the index .-"egister to data as opposed to an address. 
If the data is a number which is lower than the walue of RANGE 
BEGIN or higher than the walue of RANGE END* you hawe no problem. 
If* howewer* the data is a number inside the range* it will be 
altered as it looks like an address to the RELOCATOR. Although 
this does not occur often* it will giwe you an incorrect 
relocation. 

To prewent these problems* you must know whether each occurence 
of a 3 byte immediate instruction contains immediate data or an 
immediate address. If it is an address* there will likely be no 
problem. If it is data* you should setup all 3 bytes of the 
instruction as a "DATA BLOCK" as described abowe. 


ADAPTING TO VOUR SVSTEM: 


Adapting to your particular system is a very simple task. Vou 
must supply two routines. One is an output routine which outputs 
the fl accumulator to your display and returns without affecting 
any other registers. The second is an input routine which inputs 
a character from your keyboard into the R accumulator and returns 
without affecting any other registers. Vou must patch the 
addresses of these routines into the RELOCRTOR at $8220 and 
$0223. Upon completing a relocation* the program will jump to 
the address stored at’plONITR <$8226). Vou may patch any address 
you like here* such as the re-entry point of your monitor. If 
you are using 3 MIK6UG monitor* these 3 addresses are already set 
and need not be altered. 

Vou may need to alter the location of the stack which is 
presently setup at $8FFF. If this location is inconvenient for 
your particular system* you may change it by patching in the 
desired address at $0201 in the RELOCRTOR. 

See the section titled/LORDING FROM TRPE' for instructions on 
adapting to your particular tape system. 
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SAMPLE RELOCATIONS: 

1) The TSC 6803 Relocator 


This sample will relocate the TSC 6303 RELOCRTOR itself. The 
program starts at $0233 and ends at $06AF Let's assume we want 
to move it to $3£03. Here is a copy of what the prompts and 
responses look like: 


« 4 °° 


* TSC 6800 RELOCRTOR * 
PRESENT PROGRAM. 


OT-O© 

BEGIN 

ADDRESS? 

203 

Ollb 

lf$oo 

END 

ADDRESS? 

6AF 


MOVE TO? 

3230 

FIX REFERENCES 

? V 

q80o 

LORD 1 
DRTR 1 

FROM TAPE 
BLOCKS? V 

? N 

D x.ob 

BEGIN 

ADDRESS? 

236 


END 

ADDRESS? 

21E 

oS^I 

BEGIN 

ADDRESS'’ 

5B1 

END 

ADDRESS? 

6AF 

o7°T 

o-l ‘ b 

BEGIN 

ADDRESS? 

FFFF 

ALTER RANGE? N 
FIX FDB'S? N 



I 


A O (> 
A 


(\ e fir 


RELOCATION COMPLETED !!! 


Note that the C ^stack remains at. TOFPF^ ) It may be necessary to 
change its location. The stadk is set immediately upon entering 
the program. Thus in the relocated version^ it is set at $3200. 
The instruction there is an LOS #. Change the $0FFF there if 
necessary. 







■H 
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2) TSC Space Voyage 

SPACE VOYAGE actually begins at *0000 and ends at *0FFE. The 
first part is temporary storage in page 0, however* and cannot be 
moved. We will relocate only the program beginning at *0100. 
Let's assume we want the program moved to *1008. This relocation 
has an example of FDF's. They make up a jump table and thus are 
addresses. The FDB's themselves are outside the range/ however, 
so an '0' must be typed in response to the prompt, 'FIX FDB'S?' 
Here is what the relocation of SPACE VOYAGE looks like: 


* TSC 6800 RELOCRTOR * 
PRESENT PROGRAM: 

BEGIN RPDRESS? 1O0 
END ADDRESS? FFE 
MOVE TO? 1000 
FIX REFERENCES? V 
LOAD FROM TAPE? N 
DATA BLOCKS? Y 

BEGIN ADDRESS? CSS ^ 

END ADDRESS? FFE 

BEGIN ADDRESS? FFFF 
ALTER RANGE? N 
FIX FDB'S? 0 
ADDRESS? D3 
RDDRESS? D7 
ADDRESS? D9 
ADDRESS? DB 
RDDRESS? DD 
RDDRESS? DF 
RDDRESS? El 
ADDRESS? E3 
RDDRESS? E5 
ADDRESS? E7 
ADDRESS? FFFF 


RELOCATION COMPLETED !!! 
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3) Disassembler 


BEGIN ADDRESS: 1998 
END ADDRESS: 1F14' 


DATA BLOCKS? V 
BEG ADDR: 197A 
END ADDR: 199A 
1A94 
. 1AB3 

C 1BF9 
1F14 


[; 


FIX FOB'S'’ V 
ADDRESS: 1A94 
1A96 
1A98 
1A9A 
1A9C 
1A9E 
1AAO 
1AA2 
1AA4 
1AA6 
1AA8 
1AAA 
1AAC 
1AAE 
1AB8 
1AB2 


MAKING THE TSC EDITOR AND ASSEMBLER CO-RESIDENT: 


Following is a description of the steps necessary to relocate the 
TSC TEXT EDITING SYSTEM, allowing co-resident operation with the 
TSC 6800 MNEMONIC ASSEMBLER. 

1> Load the RELOCATOR 

2> Move it to $3200 and set its stack pointer to $3FFF <location . 

$3201 after relocation must be changed to $3F> 

3> Load the TSC TEXT EDITING SYSTEM 

4> Load the program called ''LAS'' which has been included with this 
documentation. Type in all code generated by that progra 
5> Relocate the Editor-LAS pair according to the instructions giuer 
below. <Begin execution of the RELOCATOR at $3290> 

6> Load the TSC 6800 MNEMONIC ASSEMBLER 
• 7> Begin execution at $1700. See the LAS program for instructions 
on use and on adapting to a system larger than 16K. 
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RELOCATING THE EDITOR-LAS PAIR: 


BEGIN ADDRESS: 

0200 


ALTER RANGE? V 


END ADDRESS: 

1559 

J_S_f 1 

BEGIN ADDRESS: 

01FF 

MOVE TO: 

1700 

1A ? <} 

END ADDRESS: 

1559 

DATA BLOCKS? V 



FIX FDB' 

S? V 


BEG ADDR: 0212 



ADDRESS: 

021B 

02CE 

END ADDR: 0354 




021F 

02D2 

r 044C 




0228 

02D9 

L 644D 




022C 

02E4 

f*0458 

r 1491 



0235 

02EA 

L045E 

L 14D2 



023C 

02F4 

f 0464 

r 150D 



0241 

02F8 

1.0470 

L 1512 



0245 

02FF 

t 

r 0476 

r 1525 



024E 

0305 

L 0482 

Ll532 



0252 

030C 

r 0946 

r 1558 



025B 

0310 

L.0955 

L1559 



0261 

0316 

r 0982 




0268 

031C 

L 0988 




026C 

0320 

T0A31 

‘ 


■ 

0272 

0329 

L0A47 




027B 

032D 

. r 0BF2 




027F 

0335 

L 0C07 




0288 

0339 

T0C77 


. 


028C 

033D 

L0C86 




0292 

0344 

I" 0D7F 




0299 

0348 

Lodca 




029E 

0949 

r 0FCA 




02A5 

094F 

1.0FD3 




02AF 

0953 

r 1084 




02B4 

1245 

Li0cf 




02B8 

124C 

ri24i 




02C2 

1252 

L125B 




02C6 

1259 









